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36 names and flagt 
eas 

— Accrue a list of privileges 

~ Clear aii parsing privilege flags 

— Copy current to set privileges 
-~ Reset job privileges 

— Transfer privilege flags to LSW tables 
-~ Process list of command options 

■ — Process a list of command options 
-- Proc€?sB a SET command keyword 

Process PRIVILEGE option 

-~ Set or clear privilege flags 

— List names of privileges 

-~ Check if me are privileged to access another job 

- Check if spooler is active 
- — See if a device name is TT 
• — Stop the system 

— Push a command file 

— Pop a command file 

- Abort ail command files 

-- Abort execution of IHD and nested command files 

- Stop input from a command file 

— Start input from a command file 

— Squeeze space in command file buffer 

- Check to see if log file is on specified dev 

- Close the log file 

• — Accrue a decimal value 

— Accrue an octal value 

— Accrue a line speed value 

— Print an octal value 

— Print octal value with fixed # spaces 
•- Accrue a character string 

— Accrue a quoted character string 

— Accrue a FMD50 value 

— Print percentage value 

— Print a RAD50 value 

- Print a file name 

- Divide 32-bit qty by 16-bit 

— Divide 32-bit qty by 32-bit qty 
Multiply 32-bit qty by 16-bit qty 

- Print a decimal value 

— Print a job number 

~ Print value with fixed field width 

- Print decimal value with 2 digits 
-- Print decimal value with 3 digits 

— Print specified number of spaces 

- Print terminal type name 
Edit file spec 

-- Convert RAD50 value to ascii 

- Print UBer name or F^PN 



Print job statistics 
Print a time value 
Print a time value with 
Print the current date 
Print the time of day 
Print date and time 
Search keyword list 
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— Print fatal error message 

- Print warning message 

.._. p-pint error message and abort 

— Abort command file's on KMON error 
--• Accrue a file name 

— Accrue full file specification 

— Dismount and deallocate all devices 

— Remove a device from directory cache 
-- Get user-flag for cached device entry 

— See if requested device is legal 

- See if device is mounted 

— Bee if devire is mounted b" other users 
■-- Check to see if a CL unit is in use 

- Determine if device is allocated to another user 

- Get local copy of mount device entry 

••- Store mount descriptor block into kernel 

— Perform SET LD CLEAN operation 

— Set up information about a logical disk 

- Check if LD is in access control table 

- Add LD entry to access control table 

— Delete LD entry from access control table 

— Add entry to the ASSIGN table 

— Convert device number to device name 

— See if device name is CL or CI unit 

— Search assign table for logical name 

— Perform full logical device assignment 

— Force a 2-char dev name to unit 

- Deassign physical device 

— Search for program in INSTALL table 

- List pending spool files foT- a device 

— See if char is a delimiter 

— Convert tab and FF chars to spaces 

— Convert chars in command line to upper case 

— Skip over spaces in command line 

— Skip delimiters in command line 

— Get nest char from command line 

— Delete spaces from command line 

•~ Check that next command character is equal sign 

- Check for OPER privilege 

- Check for SYSPRV privilege 

- Check for TERMINAL privilege 
.... Purge all channels for job 
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TITLE TSKMN3 

ENABL LC 

DSABL GBL 

CSECT TSKMN3 
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Macro calls 

. MCALL 
. MCALL 
. MCALL 
. MCALL 
. MCALL 
. MCALL 
. MCALL 
. MCALL 



TTOUTF?, . SRESET 
TTYJN, . TTYOUT, . PURGE 

CSIGEW, . SAVEST, . REOPEN 

GTLIN, . CIIM, . DATE 

CLOSE, . LOOKUP 
ENTER, .EXIT 

SERR, . HERR, . FPROT, . OVAL, . PVAL 

ELRG, . CRRC 



CSISPC, 
READW, . 



. PRINT, 
. WRITy, 



Global references and definitions 

. GLOBL AFCF, $SCCA, AF*CCA, LWINDO, AF$NPW, $NDWIN, LSWl 1 

. GLOBL INSTBL, INGADR, INGEMT, IIBUF, 1 1* NAM, II«*SZ, INSTBN 

. GLOBL ACRTXT, CHKCLU, CFSTRT, CFSTOP, R*CFST, CFACFL, CXTRMN 

. GLOBL PEKEMT, PEKADR, PEKSIZ, PRVOPT, CL*XLN, ACRSTR 

. GLOBL ASRTAD, ADRTCD, CINFLG, fVNOTT, LSTSPL, EM«IST 

. GLOBL CORUSR, L8W, *CTRLO, SERFLG, lOABFL, TSKMN3 

. GLOBL UTRPAD, JSWLOC, ERRLOC, MAXMEM, CHKALC 

. GLOBL USRSTK, *KIN1T, CFSTK, MXJMEM, DFJMEM 

. GLOBL SPUBUF, SXBPNT, MXJADR, CKCLUS 

. GLOBL TMTOTH, TMTOTL, TMUSRH, TMIOWH, CFSQEZ, LDCLEN, DATTIM 

. GLOBL TMSWTH. TMIDLH, TMIOH, TMSWPH, PRGALL, LDMNT 

. GLOBL WILDFL, *NOIN, *NDWTT, *HITTY, LPARNT, WLDNAM 

. GLOBL P2*UP1, P2*UP2, P2*UP3, P2«UP4, P2*CXT, *SUCF 

. GLOBL PO*BYP, PO*NFR, PO*NFW, PO*SPF, RUNFLG 

. GLOBL P2*TRM, EM*OFR, EM*SPR, EM«TPR, PO$*NP, P2**NP 

. GLOBL PO$DBG, PO*SPV, CKACOJ, P2*WRL, P2$GRP, P2«SAM, EM$CAJ 

, GLOBL PO*DET, PO'fiMEM, P2*MSG, PO*OPR, PO*LOK, PO*RT 

. GLOBL PO*SND, PO^NAM, PO*SPV, P2*RLK, P2*CGR, PO*SYS 

. GLOBL P2$VIR, PO*ALC, PRIVC2, $NOVLN, LSW2S 

. GLOBL CHKEQ, CLRPRV, RSTPRV, PRVLST, FIXPRV, CCSPRV 

. GLOBL PVNPW, PESO, PFCO, EM*CSE, PRIVCO, PRIVSO, PRIVFO 

. GLOBL CDGET, CDPUT, CDBUF, CDGEMT, CDGADR, CDPEMT, CDPADR 

. GLOBL TECO, EDIT, KED, K52, *1STLG, $DIBOL, SETWRD, ACRPRV 

. GLOBL R. GSTS, RS. CRR, RS. GBL, RS. PVT, RS. EGR, OPTLST 

. GLOBL SHfVAL, SH$NAM, SH**SZ, SH*RTN, SH*FLG, SFCBSZ 

. GLOBL TM*CLG, EM$ENM, EM$IOV, EM*ISV, KUSECK, SCNOPS 

. GLOBL ALCDEV, DLCEMT, SFID, RUNCHN, GETKCH 

. GLOBL SO*NVL, SO$OCT, SO*NO, HANENT, HANSIZ 

. GLOBL HAZEL, HAZLFL, HAZLNO, *MLOCK, MDT, LSW9 

. GLOBL LINBUF, LINNXT, LSTACT, PRGTOP, PRGSIZ, KMNHI 

. GLOBL KMNTOP, KMNPGE^', KMNSTK, KMNSTR, CXTPAG 

. GLOBL LINPNF, LINCNT, LACTIV, LRDTIM, CS*RON 

. GLOBL LOTBUF, LOTNXT, LOTPNT, *VTESC 

. GLOBL LOTSIZ, LOTBPC, LCOL, TKISEC, *NTGCC 
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OLOBL LAFSIZ, LFWLIM, L INCUR, NUMON, ILSW2 

GLOBL *CARUP, DOASGN, LDOCHK, LOGDVU, LOGBAS 

GLOBL LSUCF, f.CCLRN, TALEMT.. ALCDEV, EM*DAA, EM*DIU 

GLOBL KL3CLR, *PRGLK, LSW5, PVON, S«SPND 

GLOBL S*TWFN, S*TTFN, S*OTFN, S*IOFN, S*OTLO 

GLOBL LSTDL, FST DL, i^DETCH, UMSYTP 

GLOBL *DISCN, LPROJ/ LPROG, LUNAME 

GLOBL LCPUHI, LCPULO, LCDNTM, fCTRLS, *SPLJB 

GLOBL STPFLG> TOTDN, USPLCH, SPLCHN, *CFKIL 

GLOBL S*INWT, S*OTWT, S*TMWT, S*SFWT, fINDAB 

GLOBL S*MSWT, CFBUF, CFEND, CCLSAV, KMNCHN 

GLOBL MINTIM; LSECPT.- MAXSEC- *EMTTR." SC*WRN 

GLOBL OKFILE, OKFEWD, *CLTST, SKPSPC, SKPDLM, SC*SEV 

GLOBL LJSW, CTRLTT, NEWJSW, JSTKND, VIMAGE 

GLOBL USTART, GENTOP, BOTDEV, BOTUNI , BOTCSR 

GLOBL *CTRLC, LSW2, $IWKMN, CHAIN, UFORM 

GLOBL MAXASN, *CPABT, IWDSTA, INDERR 

GLOBL AT*LOG, AT$SIZ> AT*DEV, AT*FIL, AT$EXT, AT**SZ 

GLOBL RUNDEV, LNBLKS, CXTBAS, CXTWDS, UHIMEM 

GLOBL ASIMTBL, *DILUP> CSHDEV, CSHDVN, LNSBLK 

GLOBL ASNEND, LSW3, *DUPRN 

GLOBL *FORM, *TAB, LSCCA, $CF"SOT 

GLOBL $PAGE, *SCOPE, •SECHO, *LC 

GLOBL UCHAN, *FORMO, *CFALL, $CFDCC, *CFCCL 

GLOBL LNPRIM, LNMAP, CW*50H, CONFIG 

GLOBL *DOOFF, NUCHN, LRBFIL, CFIND 

GLOBL C. CSW, C. DEVQ, C. SBLK> NLINES 

GLOBL CD*NAM, CD$DVU, CD*BAS, CD$JOB, CDi6*SZ, CD**UB 

GLOBL LTSCMD, LNSPAC, CFNEST, UCLNAM 

GLOBL fCFOPN, CFSEND, PBFEND, CFSP, *TTGAG 

GLOBL UFPTRP, SDSFCB, SD*DEL, CFLFL4, *UCLCF 

GLOBL SDFLAG, SD*FLK, SD«WFM, SDFORM, *UCLRN 

GLOBL SDBUF 1 , SDBLK, SPLND, LD*RON 

GLOBL LDNAME, LDSIZE, LDFLAG, LDBASE, LDPDEV 

GLOBL *DEFER, CFCHAN, SCHAIN, LDDEVX, CLDEVX 

GLOBL CFPNT, CFBLK, ^QUIET. DIABFL 

GLOBL DIABNO, VT52N0. LA36N0, LA36FL 

GLOBL LSW4, KL4CLR, SDSKIP, SDBU, SD«BAK 

GLOBL *INCOR. *KED, TK5VAL 

GLOBL SF*BSY, SFFORM, SD*SNG; SFNMBL, NFRESB 

GLOBL SD*HLD, SF*HLD, CURPRM, PRMPNT, SF$1ST 

GLOBL LSTPRM, PRMBUF, PRMEND, CFSPND 

GLOBL SDFHD, SFFLAG> SFQLNK, CFHOLD 

GLOBL LCOL, fQTSET, *TECO, CD*TOP> POPCF 

GLOBL *WILD, ERRSEV, UERSEV, PASLIN 

GLOBL LSTPL, SDCB,SDCBND 

GLOBL VQUANl , VQUWl A, VQUAN2, VHIPCT 

GLOBL DCTRD, DCCRD, DCTWR, DCCWR 

GLOBL VCORTM, KMPRMT, MXPRMT 

GLOBL RDB> RDBEND, RT^NAM, RT**SZ 

GLOBL SDNAME, SDCBSZ , LSTSL, LSTATE 

GLOBL TKIVAL, CINDAT, SYSDAT, SYTIMH, SYTIML 

GLOBL BASMAP, LOMAP, HIMAP, JCXPGS 

GLOBL TSXLN, TSXSIT, GRTl, TRGRET, LICTXT, SUPCQD, NAMTOP, SUMS, SUCS 

GLOBL LPRGl, LPRG2, S-*QUSR, S*IOWT, S*SFWT 

GLOBL S*SPDB, S*SPCB, SFUSER, SFFILE, VT2007, VT2008 

GLOBL LCBIT, LA36, LAi2C), VT52, VT100> DIABLO, QUME 
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. GLOeL ADM3A, LTRHTP, LA12FL.. LA12N0, VT52FL 

. GLOBL VTIOFL, VTIONO. QUMEFL, QUMENQ, ADM3FL 

. GLOBL ADM3ND> SYINDX, SYUNIT, WUMDEV, PWAME 

. GLOBL OF«DEV, OF$UNT, OF*FIL. OF*FLG, SYNAME 

. GLOBL 0F**S2, DT*RON, RESDEV, *TAPE 

. GLOBL KMNBAS 

. GLOBL LSW6, *SNWTT, PF*SYS, PF*IOW 

. GLOBL RSR, TSR, LMXNUM, LSTMX, MXDTR, ZCLR> HXCSR 

. GLOBL *INDDF, *INDRN. IN*ACT, IN*CNT, IN*CMD, INDSAV 

. GLOBL *PHONE, INVEC, LMXLN, MXVEC. *INIT, *DEAD 

. GLOBL ITRMTP, LMXPRM, LSW7, CFSTS, CF*IND. CF*QUT 

. GLOBL GFABLV; MONVEC- CVTUC- INDABT 

. GLOBL LOGCHN, LOGFLG, LOGPTR> LOGBUF, LOGBLK 

. GLOBL LF*OPN, LF*WRT, UCLBLK, UCLDAT 

. GLOBL CSHHD, FC*CDX, FC*LNK, FD*NAM> UC$NDC, UC*MDC 

. GLOBL CMDBUF, PAUMBG, RDCMD, DKSAV, SYSAV, CVTTAB, RUNHD, SEARCH 

. GLOBL INVOPT, FKILL, ABRTCF, ACRFN, XAREA, FILNAM, NOPRG, FPRINT 

. GLOBL PUSHCF, TRMSTR, FILNAM, R50DIR, R50SY, R50IND, PRTWRN 

. GLOBL INDACT, R50DUP, R50PIP, R50KED, R50K52, R50KEX, WRNHED 

. GLOBL BLKO, RDERM, R50VIR, NOSTRT, RUNEMT, OVRCOR 

. GLOBL BADSAV, LDNAM, NOPRG, NOCIN, SIZVAL, ASKLNM, BADCMD, KCSIBF 

. GLOBL ASDEX, GTRD50, R50BUF> R50LD0, MNTDEV, DMTARG 

. GLOBL DEADEV, CHKMNT, CHKMTX, INFOMT, NOFLAG, MTDPHD, INVOPT, ILLCMD 

. GLOBL R50LD, INVLDN, R50DSK, ACRFIL, BDFNAM, LOGASN, MNTFUL, R50LD7 

. GLOBL TBLOVF, SETHD, CSIMS2, CKPRIV, R50N0> AMBOPT, ACRDEC, CKTERM 

. GLOBL MAXAVL, PRTDEC. DEVUNT, PNAME, HANIDX, HNBUF, ACRSPD 

. GLOBL ACROCT> HANBSY, CSIMSl, MISSEQ, NOIND, CKSYPV 

. GLOBL BADPhT, BADPRI , TOTXT, CRLF, HIPRI> STLGHD, LOGCLS, R50L0G 

. GLOBL BDLGOP, SPLHLA, NOCCL, LDOPHD, PRTFIX, PRTSPC 

. GLOBL DLTXT, OCTFIX, PRTTTP, NATXT, NOTXT, YESTXT, NINTXT 

. GLOBL PRTUNM, SYHDl, SYHD2, PRTLN. SPACE2, DETTXT, SPACES. RNMS 

. GLOBL SWPTX, LOCKTX, SPACE5, PRTDC3, KBMSG, DIVIDE, PRTDC2 

. GLOBL COLOO, CPUAH, CPUAL, PRTTMV, NOFIL, CHDBUF, CALUCL 

. GLOBL NOUDC, DEVHDl, ASNHDl, ASNHD2, SHMTHli SHMTH2 

. GLOBL CVDVNM, SPACE6, PRTBUF, PRTFNM, NONEMS, NODAT, NOLDMT 

. GLOBL SUBARO, EDTFIL, RONTXT, NOTAVL. KBTX, PRTTMD 

. GLOBL DELSPC, MONHD, ilONAR 1 , NOPMGN, PMBUSY, M0NAR2 

. GLOBL NSWPMS, MAXMTX, CURMTX, SDNAME, CHKDLM, SPLHD, INVOPT 

. GLOBL DEVIDL. COAL, ALDEX, COAD, SPACTV> SPWFM, DEVIDL, SPSNG 

. GLOBL COAL, ALDEX, ALDBLK, COAD, SPACTV, SPWFM, DEVIDL 

. GLOBL SPSNG, SPFUL, SPCF, SPFLK, NOFIL, SPGEMT, NOOPTT 

. GLOBL BDLIN, MSGBUF, MSGEND, NOTON, GAGMSG, CHKTTD 

. GLOBL LINFRE, DJABMS, DLMSG, INVTIM, DMT ALL, H. CSR 

. GLOBL SHTMSG, AUTHFN, SPLACT, DOSTOP, OFFEMT, KILEMT, UPTMMS 

. GLOBL TMTOTH, DIVSOR, TMTOTL, PRTPCT, SUMl, SUM2, SUM3, SUM4 

. GLOBL SUMS, SUM6, SUM7, DTHRON, SPLPND, STPASK, SRTSMS 

. GLOBL SIZEMT, ASNDVF, IIWLDM, CSIMS4, MNTARG, HUPARG, R50TT 

. GLOBL KMNNAM, NOKMON, CCLNAM, OTRMNT, CHKDEV, DMTSUB, CMDCCL 

. GLOBL SHOHD, SUBTXT, MNTTXT, SRTTXT, TOTMMS, UMSSMS 

. GLOBL TSXSMS, USRMMS, JCXSMS, DZTXT, OCTPRT 

. GLOBL PRTR50, PRTDAT, PRTTOD, PRTTIM, INVDEV, ALFN, R50DK 

. GLOBL DETHD, DETARG, RUNMS, NOFRDL, R50M0N, INVDAT, MUL32, COAF 

. GLOBL BADBOT, START, BOTEMT, CF2DEP, LGOVER, R50CHR, REMNDR, PBUFND 

. GLOBL PPNMSG, CTMSG, CPUMSG, MONTAB, KEYBUF, KEYEND, KMFTXT 

. GLOBL KMSTK, ASNSRC, INSSRC, SJSPPN, FORCEO 

Assembly constants 
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CR 

BLANK 

BELL 

TAB 

FF 

COMMA 

BLKWDS 

HANCHN 
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LINE FEED 

CARRIAGE RETURN 

ASCII SPACE 

ASCII BELL 

HORIZONTAL TAB 

FORM FEED 

COMMA 

# OF WORDS IN DISK BLOCK 
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Macro to cause a fatal error message to be printed. 

. MACRO FERR MSG 

MOV R5, -<BP) 

MOV MSG. R5 

CALL FPRINT 

MOV (SP)+, R5 

. ENDM FERR 



and then jump to RDCMD. 



. MACRO FABORT MSO 

MOV MSO, R5 

sJMP FKILL 

. ENDM FABORT 



clean up 



Macro to print a warning me 5 sage. 

. MACRO FWARr4 MSG 

MOV R5, -(SP) 

MOV MSG, R5 

CALL PRTWRN 

MOV (SP)+, R5 

. ENDM FWARN 



Macro to start a standard option table. 

Name = 1 to 4 character table name. 

NA = Number of arguments per table entry. 

. MACRO TBLDEF NAMF> NA 
NARGS ^-^ NA 

. CSECT CMDV3 
NAME'HD: . WORD 2»NA 

. ENDM TBLDEF 



Macro to enter an option text name and a set of parameters 

into the currently open table. 

STRNG ■-■■= Ascii name 

A, B> C -- Set of option parameters to store in table with name. 



MACRO CMDDEF STRNG. A. B, C, D 
CSECT NAME3 



. IIP 
. I IF 
. IIF 



. ASCIZ /STRNG/ 
. CSECT CMDV3 
. WORD L 
. WORD A 
GE, <NARGS-2> 
GE, <NARGS-3> 
GE. <NARGS-4> 
. ENDM CMDDEF 



i POINTER TO NAME STRING 



WORD 


B 


WORD 


C 


WORD 


D 
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58 ; 

59 i 

60 ; Hacro to end a set of tat-ie entries. 

61 ; 

62 . MACRO TBLEND 

63 . CE5ECT CMDV3 

64 . WORD 

65 . CSECT TSKMN3 

66 . ENDM TBLEND 



TSKMN3 — TSKHON Subroutines 
Privilege names and flacjis 



1 




2 




3 




4 




5 




6 




7 




S 




9 




10 




11 


000000 




000002 


13 


000014 


14 


000026 


15 


000040 


16 


000052 


17 


000064 


IS 


000076 


19 


000110 


20 


000122 


21 


000134 


22 


000146 


23 


000160 


24 


000172 


25 


000204 


26 


000216 


27 


000230 


28 


000242 


29 


000254 


30 


000266 


31 


000300 


32 


000312 


33 


000324 


34 


000336 


35 


000350 


36 


000362 


37 


000374 


38 


000406 


39 


000420 


40 


000432 


41 


000444 


42 


000456 


43 


000470 


44 


000502 


45 


000514 


46 


000526 


47 


000540 


48 


000552 


49 


000564 


50 


000576 


51 


000610 


52 


000622 


53 


000634 


54 


000646 


55 


000660 


56 


000672 


57 


000704 
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. SBTTL Privilege names and flags 

i Table of process privilege names and flags. 

> 

> Arg 1 = Privilege keyujord. 

; Arg 2 ~ Name of routine to set or clear flag (PFLRTN). 

; Arg 3 = Flag mask. 

; Arg 4 = Offset to privilege word with flag. 

; Arg 5 = + ==> Set bit, -- ==> Clear bit. 

TBLDEF PR v.. 4 

CMDDEF ALL. PFLALL, O, 0, +2 

CMDDEF ALLO-frCATE, PFLRTN, PO*ALC> 0, +1 

CMDDEF NOALLO#CATE, PFLRTN, PO*ALC, 0, -1 

CMDDEF BYP-frASS, PFLRTN, PO*BYP, 0, +1 

CMDDEF NOBYP#ASS, PFLRTN, PO*BYP, 0, -1 

CMDDEF DEB#UG, PFLRTN, PO*DBG, 0, +1 

CMDDEF NODEB«UG, PFLRTN, PO^DBG, O, -1 

CMDDEF DET-s-ACH, PFLRTN, PO*DET, 0, +1 

CMDDEF NODET«ACH, PFLRTN, PO*DET, O, -1 

CMDDEF GETC«XT, PFLRTN, P2*CXT, 2, +1 

CMDDEF NOGETC#XT, PFLRTN, P2*CXT, 2, -1 

CMDDEF MEML*OCK, PFLRTN, P0*LOK, 0, +2 

CMDDEF NOMEML*OCK, PFLRTN, PO*LOK, 0, -2 

CMDDEF MEMM*AP, PFLRTN, POfMEM, 0, +1 

CMDDEF NOMEMM*AP, PFLRTN, PO*MEM, 0, -1 

CMDDEF MES*SAGE, PFLRTN, P2*MSG, 2, +1 

CMDDEF NOMES#SAGE, PFLRTN, P2*MSG, 2, -1 

CMDDEF NFSR*EAD, PFLRTN, P0*NFR, 0, +1 

CMDDEF NONFSR*EAD, PFLRTN, PO*NFR, 0, -1 

CMDDEF NFSW*RITE, PFLRTN, P0*NFW, 0, +1 

CMDDEF NONFSW*R 1 TE, PFLRTN, PO*NFW, 0,-1 

CMDDEF OP*ER, PFLRTN, P0*0PR, 0, +1 

CMDDEF NOOP*ER, PFLRTN, PO*OPR, 0, -1 

CMDDEF PSWAP«M, PFLRTN, PO*LOK, 0, +1 

CMDDEF NOPSWAP*M, PFLRTN, PO*LOK, 0, -1 

CMDDEF REAL*TIME, PFLRTN, PO*RT, 0, +1 

CMDDEF NOREAL«TIME, PFLRTN, PO*RT. 0, -1 

CMDDEF RLO»CK, PFLRTN, P2*RLK, 2, +1 

CMDDEF NORLO*CK, PFLRTN, P2$RLK, 2, ~1 

CMDDEF SEN*D, PFLRTN, PO*SND, 0, +1 

CMDDEF NOSEN*D, PFLRTN, PO*SND, 0,-1 

CMDDEF SETNA-s-ME, PFLRTN, PO$NAM, 0, +1 

CMDDEF NOSETNA»ME, PFLRTN, PO*NAM, 0,-1 

CMDDEF SETPttRV, PFLRTN, PO*SPV, 0, +1 

CMDDEF NOSETP-JfRV, PFLRTN, PO*SPV, 0, -1 

CMDDEF SPF»UN, PFLRTN, PO*SPF, 0, +1 

CMDDEF NOSPF#UN, PFLRTN, PO*SPF, 0, -1 

CMDDEF SYSG#BL, PFLRTN, P2*CGR, 2, +1 

CMDDEF NOSYSG«BL, PFLRTN, P2*CGR, 2, -1 

CMDDEF SYSPttRV, PFLRTN, P0*SYS, 0, +1 

CMDDEF NOSYSPK-RV. PFLRTN, PO*SYS, 0, -1 

CMDDEF TER^MINAL, PFLRTN, P2*TRM, 2, +1 

CMDDEF NOTER-H-MINAL, PFLRTN, P2*TRM, 2, -1 

CMDDEF WOR«LD, PFLRTN, P2*WRL, 2, +1 

CMDDEF NOWOR*LD, PFLRTN, P2*WRL, 2, -1 

CMDDEF GRO»UP, PFLRTN, P2*GRP, 2, +1 



i 
f 

€ 

I 



C 



i 

< 
i 

i 



( 
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F*rivilege names and flr3!j5 



58 


000716 


59 


000730 


60 


000742 


61 


000754 


62 


000766 


63 


001000 


64 


001012 


65 


001024 


66 


001036 


67 


001050 


68 


001062 


69 


001074 


70 


001106 


71 


001120 


72 


00U32 


73 


001144 


74 


001156 


75 


001170 


76 


001202 



CMDDEF NOGRO«-UP, PFLRTN, P2*GRP> 2, -1 

CHDDEF SAM-»-E, PFLRTN, P2*SAM, 2. +1 

CMDDEF NOSAM*E, PFLRTM, P2*SAM, 2, -1 

CMDDEF SUB#PROCESS> PFLRTN, P2*VIR, 2, 

CMDDEF NOSUB^PROCESS. PFLRTN, P2«VIR, 

CMDDEF VIR«TUAL, PFlRTN, P2*VIR, 2, +2 

CMDDEF !MOVIR*TUAL. PFLRTN, P2*VIR, 2, - 

CMDDEF UP 1, PFLRTN, P2*UPli 2, +1 

CMDDEF NOUP 1 , PFLRTN, P2$UP 1,2,-1 

CMDDEF UP2, PFLRTN, P2«UP2, 2, +1 

CMDDEF N0UP2, PFLRTN, P2*UP2, 2, -1 

CMDDEF UP3, PFLRTN, P2*UP3, 2, +1 

CMDDEF N0UP3, PFLRTN, P2*UP3, 2, -1 

CMDDEF UP4, PFLRTN, P2*UP4, 2, +1 

CMDDEF N0UP4, PFLRTN, P2*UP4, 2, ~1 

CMDDEF NONE, PFLNON, 0, 0, ~2 

CMDDEF STA^NDARD, PFLSTD, 0, O, +2 

CMDDEF STD, PFLSTD, O, 0, +2 
TBLEND 



+ 1 



€ 



\ 
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Data areas 



1 



3 
4 
5 

7 000000 

8 000002 

9 000004 

10 000006 

11 000010 

12 000012 

13 000014 

14 000016 

15 000020 

16 000022 

17 000024 

18 000026 

19 000030 

20 000032 

21 000034 

22 000036 
23 

24 
25 

26 000040 

27 000042 

28 000044 

29 000046 

30 000050 
31 

32 
33 

34 000052 

35 000054 

36 000056 

37 000060 
38 

39 
40 

41 000064 
000072 

42 000074 
000102 

43 
44 
45 

46 000104 

47 000106 

48 000110 

49 000112 

50 000114 

51 000116 

52 000120 

53 000122 

54 000124 
000132 



000062 
000113 
000156 
000206 
000226 
000454 
00 1 1 30 
002260 
003410 
003720 
004540 
007020 
011300 
016040 
022600 
04 5400 



000 
000010 
000000 
000000 
0000000 



000000 
000000 
000000 
035164 



000000 
000000 
000000 
000000 



100076 
1001 OS 
012240 
012276 
012305 
013630 
1 3666 
01367D 
075250 
075273 
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. SBTTL Data btbb's> 

Date areas 

Table used to convert terminal speeds into speed code values 

O 
1 
2 

3 (134. 5) 
4 
5 
6 
7 
10 
11 
12 
13 
14 
15 
16 
i 17 



SPDVAL: 


. WORD 


50. 




. WORD 


75. 




. WORD 


110. 




. WORD 


134. 




. WORD 


150. 




. WORD 


300. 




. WORD 


600. 




. WORD 


1200. 




. WORD 


1800. 




. WORD 


2000. 




. WORD 


2400. 




. WORD 


3600. 




. WORD 


4800. 




. WORD 


7200. 




. WORD 


9600. 




. WORD 


19200 


; EMT 


argument 


block 


PEKEMT: 


. BYTE 


0, 126 




. WORD 


10 


PEKADR: 


. WORD 





PEKSIZ: 


. WORD 







. WORD 


BLKO 


; Repion Definition ] 



000000 



INDRDB: . WORD 

. WORD 

. WORD 

. RAD50 /IND 



/ 



i Sub function code 

j Address of data within kernel 

i Number of bytes to move 

i Buf f er where data is to be stored 



J Reg ion ID 
•> Reg ion size 
; Status flags 
■> Name of r eg ion 



Words to hold privilege flags 
000000 000000 PESO: .WORD 0,0,0,0 
000000 000000 PFCO: .WORD 0,0,0,0 



M i fc. c: d a t a 



014644 000000 



R50TT0: 

R50TT7; 

R50CL: 

R50CL0: 

R50CL7: 

R50C1: 

R50C10 

R50C17 

BOTHAN 



. RAD 50 
. RAD50 
. RAD 50 
. RAD50 
. RAD50 
. RAD50 
. RAD50 
. RAD50 
. RAD50 



/TTO/ 

/TT7/ 

/CL/ 

/CLO/ 

/CL7/ 

/CI/ 

/CIO/ 

/CI 7/ 

/SY ddd 



SYB/ 
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55 


000134 




56 






57 






58 






59 


000146 


000 


60 


000147 


000 


61 







INSSPC: . BLKW 5 ; Program spec beging checked for install 

; Byte data 

NEGFLG: BYTE » Flag to indicate a value should be negated 

SJSPPN: .BYTE i Flag to indicate PPN display on SHOW JOBS 

. EVEN 



\ 



ACRPRV - — Accrue a lint of- privileges 



1 
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3 








4 








5 








6 








7 








8 








9 








10 








11 








12 








13 








14 


000150 


010446 




15 


000152 


010546 




16 








17 








18 








19 


000154 


004767 


000074 


20 








21 








22 








23 








24 


000160 


004767 


014566 


25 


000164 


005005 




26 


000166 


121327 


000050 


27 


000172 


00 1 002 




28 


000174 


005203 




29 


000176 


005205 




30 








31 








32 








33 


000200 


012704 


000000 ' 


34 


000204 


004767 


000476 


35 








36 








37 








38 


000210 


004767 


014536 


39 


000214 


005705 




40 


000216 


001413 




41 


000220 


1 1 2300 




42 


000222 


120027 


000051 


43 


000226 


001407 




44 


000230 


120027 


000054 


45 


000234 


001761 




46 


000236 






47 








4S 








49 








50 


000246 


012601/ 




51 


000250 


012604 




52 


000252 


000207 





. SBTTL ACRPRV 



Accrue a list of privileges 



Accrue a list of privilfM?e keijiuords of the form: 
privilege or < p r i v i 1 e ci t? L > . . . .1 ) . 



I n p u t s : 
R3 - Points to stcjrt of privilege list. 

Outputs: 
R3 = Points past end of privilege list. 
PFSO, . F'FSn = Privilege flags to be set. 
PFCO , F'FCn - Privilege flags to be cleared. 



ACRPRV: MOV 
MOV 



R4, -(SP) 
R5, -<SP) 



Clear the words which will hold the privilege flags 

CALL CLRPRV i Clear all privilege flags 

Skip over leading spaces and see if privilege list is enclosed 
in parentheses. 



jSkip over spaces 

; Assume list not enclosed in parens 

i Is list enclosed in parentheses? 

; Br if not 

>Skip over parenthesis 

iRemember parentheses enclose list 



CALL 


SKPSPC 


CLR 


R5 


CMPB 


< R3 ) , # ■' < 


BiME 


1* 


INC 


R3 


INC 


R5 



Process the next privilege keyword 



1$: 



MOV 
CALL 



#PRVHD, R4 
SETWRD 



;Point to table of privilege keywords 
iProcess the next privilege keyword 



See if we have reached the end of the list 



CALL 


SKPSPC 


TST 


R5 


BEQ 


9* 


MOVB 


<R3)+, RO 


CMPB 


RO. #') 


BEQ 


9* 


CMPB 


RO, #S 


BEQ 


1* 


F ABORT 


#EM$CSE 



Skip over spaces 

Is this a multi-item list? 

Br if not 

Get separator character 

End of the list? 

Br if yes 

Comma separator?-" 

Br if yes — Keep going 

Syntax error 



Finished the privilege .list 



9^; 



MOV 
HOV 
RETURN 



(SP)+, R5 
( SP ) +, R4 



rfc>KMN3 — 
CLRPRV -- 

1 



5 
6 
7 

a 

9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
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000254 
000256 
000260 
000264 
000270 
000274 
000276 
000300 
000302 
000304 
000306 



010446 
010546 
012704 
012705 
012700 
005024 
00502t3 
077003 
012605 
012604 
000207 



000064 ' 

000074 ' 
OOOOOOG 



. SBTTL CLRPRV -- Clear all parsing privilege flags 

Clear the words used to hold the privilege flags gotten during parsing. 

Outputs: 
PFBO. . . PFSn and PFCO. . PPCn are set to zero. 



i Words of bits to set 
.: Words of bits to clear 
1 Get # words to clear 



CLRPRV: 


MOV 


R4, -<SP) 




MOV 


R5, -<SP) 




MOV 


#PFSO, R4 




MOV 


#PFCO, R5 




MOV 


#PV!\!P!J.. RO 


2^: 


CLR 


<R4) + 




CLR 


<R5) + 




SOB 


RO, 2* 




MOV 


(SP)+, R5 




MOV 


<SP)+, R4 




RETURN 





i 
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SBTTL CCSPRV 



Copy current to set privileges 



3 








4 








5 








6 








7 








8 








9 


000310 


010046 




10 


000312 


010446 




U 


000314 


010546 




12 


000316 


012704 


OOOOOOQ 


13 


000322 


012705 


0000000 


14 


000326 


012700 


OOOOOOG 


15 


000332 


01242;.> 




16 


000334 


077002 




17 


000336 


012605 




IS 


000340 


012604 




19 


000342 


012600 




20 


000344 


000207 





CCSPRV is used to copy current privileges to set privileges. 
This is done when running an installed program which is to be 
(RUN/LOCK or installed with the LOCK attribute) so that 



locked 



; the 


privi 


leg 


es with which 


i t wa 5 


instal led 


i aborting 


possible command 


files. 




CCSPRV: 


MOV 
MOV 
MOV 
MOV 
MOV 
MOV 




RO, -(SP) 
R4, -<SP) 
R5, -<BP) 
ttPRIVCQ; R4 
#PRIVSO, R5 
#PVNPW, RO 






1$: 


MOV 
SOB 
MOV 
MOV 
MOV 




(R4)+, (R5) i- 
RO, 1* 
<SP)+, R5 
(SP)+, R4 
< SP ) +, RO 








RETURN 









are not cleared when 



000346 
000350 
000352 



01014A 
010446 
010546 



TSKMN3 --• TBKMON Subroutines 
RSTPRV — Reset job privileges 



1 
2 
3 
4 
5 
6 
7 

a 

9 
10 

11 

1 o 

13 000354 

14 000360 

15 000364 

16 000366 

17 000374 
IS 000376 

19 000404 

20 000406 
000412 
000416 
000422 
000424 
000426 
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!1 



23 
24 
25 
26 
27 
28 

29 000432 

30 000436 

31 000442 

32 000446 

33 000450 

34 000452 
35 

36 
37 

38 000456 

39 000464 

40 000472 

41 000500 

42 000502 
43 

44 
45 

46 000510 

47 000516 

48 000524 

49 000526 
50 

51 
52 

53 000534 

54 000536 

55 000540 

56 000542 



116701 
005767 
001021."! 
032761 
001016 
132767 
001012 
1 2704 
012705 
012700 
012425 
077002 
005067 



012704 
012705 
012700 
012425 
077002 
004767 



016767 
052761 
032767 
001003 
042761 



042761 
032767 
001403 
052761 



012605 
012604 
012601 
000207 



. SBTTL RSTPRV 



Retit't job privileges 



RSTPRV is called to reset the current job privileges to those 
privileges for the current command file level. 



RSTPRV: MOV 
MOV 
MOV 



R 1 , - < SP ) 
R4, -<SP) 
R5, -(SP) 



If no command file is open now, restore command file privileges 
to set privileges. 



OOOOOOG 
OOOOOOG 

OOOOOOG OOOOOOG 

OOOOOOC OOOOOOG 

OOOOOOG 
OOOOOOG 
OOOOOOG 

OOOOOOG 



OOOOOOG 
OOOOOOG 
OOOOOOG 



MOVE 

TST 

BNE 

BIT 

BNE 

BITE 

BNE 

MOV 

MOV 

MOV 

MOV 

SOB 

CLR 



CORUSR, Rl i Get current job index number 

CFPNT > Is a command file open now? 

3* i Br if yes 

#*INDRN, LSW5(R1 ); Is IND being started? 

3* ; Br if yes 

#<IN*ACT! IN$CNT>, INDSTA ils IND active? 



3$ 

#PRIVSO, R4 
#PRIVFO, R5 
ttPVNPW, RO 
<R4)+, <R5) + 
RO, 2* 
AFCF 



.; Br if yes 

iPoint to set privileges 

; Point to command file privileges 

j Get # words to move 

iCopy set privileges to command file priv 



3*: 



1*: 



000066 



OOOOOOG OOOOOOG 
OOOOOOG OOOOOOG 
OOOOOOG OOOOOOG 

OOOOOOG OOOOOOG 



OOOOOOG OOOOOOG 
OOOOOOG OOOOOOG 

OOOOOOG OOOOOOG 



MOV 


#PRIVFO.. R4 


MOV 


#PRIVCO, R5 


MOV 


#PVNPW, RO 


MOV 


<R4)+, <R5) 1 


SOB 


RO, 1* 


CALL 


FIXPRV 



; Clear all command file attribute flags 

Now copy command file privileges to current privileges 

iPoint to cells with command file privileges 

iPoint to current priv cells 

; Get # words to move 

; Reset privilege flags 

; Transfer privileges to LSW tables 

Reset program run attribute flags 

MOV AFCF, RUNFLG ; Reset all program run options 

BIS #*SCCA, LSW5<R1 ) ; Assume control-C abort suppression wanted 

BIT #AF$CCA, RUNFLG ;Does he want to suppress control-C abort? 

BNE 4* i Br if yes 

BIC #«SCCA, LSW5<R1) ; Release SCCA 

See if we need to reenable process windowing 



4*: 



BIC 
BIT 
BEQ 
BIS 

Finished 



#*NOWIN, LSWl 1 <R1 ) i Assume process windowing is to be enabled 
#AF$NPW, RUNFLG ; Are we suppressing process windowing? 



9* 



i Br 



not 



9*: 



MOV 
MOV 
MOV 
RETURN 



#*NOWIN, LSWl 1 <R1 )i Suspend process windowing 



(SP)+, R5 
<SP)+, R4 
<SP)+, Rl 



TSKMNa 
F2XPRV 
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— Transfer privilege flags to LSW tables 



SBTTL FIXPRV 



'Iransfer privilege flags to LSW tables 



3 

4 

5 

6 

7 

S 

9 

10 

11 

12 

13 

14 

15 

16 

1 7 

IS 

19 

20 

21 

22 

23 

24 

25 

26 

27 

28 



FIXPRV is called to transfer privilege flags from the PRIVCO 
flag cell into the appropriate LSW cells. It should be called 
any time a privilege change is made to PRIVCO. 



000544 010146 
000546 010246 
000550 116701 



OOOOOOG 



FIXPRV; MOV 
MOV 
MOVE 



R 1 , - < SP ) 
R2, -(SP) 
CORUSR, Rl 



000554 042761 OOOOOOG OOOOOOG 



00056c 



042761 OOOOOOG OOOOOOG 



j Get current job index number 

Initially reset all privilege flags in LSW tables 

BIG #*NOVLN. LSW2<Rl)i Flag that disallows virtual line use 
B I C #*NOVLN. LSW2S < R 1) 

Wow check privilege flags iis PR I VC2 



000570 016702 OOOOOOG 

000574 032702 OOOOOOG 

000600 001006 

000602 052761 

000610 052761 



000616 012602 
000620 012601 
000622 000207 



OOOOOOG OOOOOOG 
OOOOOOG OOOOOOG 



MOV 
BIT 
BNE 
BIS 
BIS 

f" i n i & h B d 



1$: 



MOV 
MOV 
RETURN 



PRIVC2jR2 iGet current privilege flags 
#P2*VIR, R2 J Allow use of virtual lines? 
1* ; Br if yes 

#*NOVLN, LSW2(R1); Disallow virtual line use 
#*NDVLN, LSW2S(R1) 



<SP)+, R2 
<SP)+, Rl 



c 



( 
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OPTLST — Process list of command options 



1 

2 

3 

4 

5 

6 

7 

S 

9 

10 

11 

12 

13 

14 

15 

16 

17 

IS 

19 

20 

21 

22 

24 
25 
26 



000624 



000624 004767 014122 
000630 121327 000057 
000634 001004 



000636 005203 

000640 004767 000042 

000644 000767 



000646 000207 



. SBTTL OPTLST — I'votess list of command options 

ProcesE a list of command options of the form: 
/optionL=value3. . . 

1 n p u t B : 
R3 = Pointer to start of option command string. 
R4 = Pointer to option processing table. 



OPTLST: 










; See 


if t h t 


r e 


is a n o t h r r 


npt i on 


1$: 


CALL 
CMPB 
BNE 




SKPSPC 
(R3),# V 
9* 


i 



Process the next option 



INC 


R3 


CALL 


SETigRD 


BR 


1* 


; Finis h t? d 




9*: RETURN 





Skip over any spaces 

Is there another option? 

Br if not 



;Skip past / 

.; Process the option 

i Go see if there are more options 



TSKiiN3 
SCNOPS 
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Process a list of command options 



1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 



000650 



000650 004767 014076 



000654 105713 
000656 001412 



000660 121327 000057 

000664 001403 

000666 121327 000054 

000672 001001 

000674 005203 



000676 004767 000004 
000702 000762 



000704 000207 



. SBTTL SCIMOPS — Process a list of command options 

SCNDPS processes a list of command qualifiers which may be 
separated by spaces, commas* or slashes. 

Inputs: 
R3 ~ Pointer to start of option command string. 
R4 = Pointer to option processing table. 

3CN0PB: 






ace 



11*: CALL SKPSPC ;Skip over spaces 

See if we have reached the end of the command 



TSTD 



(R3) 
12* 



; Reached end of command? 
J Br if yes 



Skip over any option separators 



CMPB 


(R3),#V 


BEG 


13* 


CMPB 


(R3), #•', 


BNE 


14* 


INC 


R3 



13*: 

; Process an option 



14*: 



CALL 
BR 



SETWRD 
11* 



> Finished 
12*: RETURN 



; Slash to separate options? 

; Br if yes 

; Comma to separate options? 

J Br if not 

.iSkip over delimiter 



; Process the option 

; Go back and check for more options 



K 



\ 



TSKMN3 - 


-- TSKMON Subrou 


tines 


SETWRD - 

.1 
2 
3 


- Proc'? 


s- a SEY 


comman 








4 








5 








6 








7 








S 








9 








10 








11 








12 








13 


000706 


010446 




14 


000710 


010546 




15 


000712 


010246 




16 








17 








18 








19 


000714 


004767 


014032 


20 


000720 


010302 




21 


000722 


004767 


004356 


22 


000726 


026767 


000000 


23 


000734 


001005 




24 


000736 


010305 




25 


000740 


004767 


014006 


26 


000744 


112325 




27 


000746 


001376 




28 


000750 


010203 




29 








30 








31 








32 


000752 


004767 


007352 


33 


000756 


103405 




34 








35 








36 








37 


000760 


012602 




38 


000762 


004734 




39 








40 








41 








42 


000764 


012605 




43 


000766 


012604 




44 


000770 


00020/ 




45 








46 








47 








48 


000772 


005704 




49 


000774 


00 1 404 




50 


000776 






51 


001006 
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SBTTL SETWRD 



FroceBS a BET command kemuord 



SETWRD is called to proct-EB a keyword associated with a SET command. 
The appropriate processing subroutine is called for the keyword. 

I n p u t s : 
R3 ~ f-*ointer to start oF command keyword. 
R4 = Pointer to keyword opt.ion list. 

Outputs: 
F?3 = Points beyond end of keyword. 



3ETWRD: MOV 
MOV 
MOV 



R4, -<SP) 
R5, ~(f3P) 
R2, -(SP) 



If keyword is preceded by "N0"» append NO to keyword 





CALL 


SKFSPC 




iMOV 


R3, R2 




CALL 


GTRD50 




CMP 


R50BUF, R50N0 




BWE 


1* 




MOV 


R3, R5 




CALL 


SKFSPC 


4$: 


MOVE 


(R3)+, (H5) + 




BME 


4* 


1*: 


MOV 


R2, R3 



Look up the option keyword 



CALL 
DCS 



SEARCH 
10* 



Skip over leading spaces 

Save keyword pointer 

Accrue the ne.xt word 

Is this word "NO"? 

Br if not 

Get pointer into command past "NO" 

Skip up to next word 

Concatenate keyword with NO 

Move all of command 

Get back pointer to keyword 



.;Look up keyword in table 
J Br if invalid keyword 



Call routine to proceES the option 

iCall routine to process the keyword 





MOV 


< SP ) +, R2 




CALL 


@(R4)+ 


F i n 


i B h B d 






MOV 


<SP)+, R5 




MOV 


(SP)+, R4 




RETURN 





Invalid keyword 

10*: TST R4 

DEO 11* 

FAB OR T #AMBOPT 

n*: F ABORT #INVOPT 



; Invalid or ambiyious keyword? 
; Br if inval id 
iAmbigious option 
i Inval id keyword 



7BKMN3 
PRVOPT 



1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 

22 

23 

24 

26 
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— Process PRIVILEGE option 

. BBTTL PRVOPT —- Proce&G PRIVILEGE option 



001016 



001016 004767 014072 



001022 004767 177122 



001026 000207 



Process the PRIVILEGE command option which may take the form: 
PRIVILEGE=privilege or PRI VILEGE=< 1 i st ) 

Inputs: 
R3 = Pointer past the word "PRIVILEGE". 

Outputs: 
R3 = Points past end of privilege list. 
PFSO. . PFSn = Privilecte flags to set. 
PFCO. . P.FCn = Privilege flags to clear. 

■^RVDPi : 

Equal sign should follow "PRIVILEGE" 

CALL CHKEQ ; Ma k e sure equal sign follows 

Wow process the privilege list 

CALL ACRPRV ; Accrue the privilege list 

F i n i shed 

RETURN 



{ 



I 
I 
I 
f 
I 
i 
i 

€ 
i 

i 

i 

€ 

€ 

4 

4 

« 

i 

i 

i 

i 



c 
i 
I 
i 

i 

i 

I 

I i 

I 

I 
. < 

i 

€ 

I € 



< 

1 
i 



TSKMN3 - 
PFLRTN - 

1 



~ TSKMON Subroutineiii MACRO VQ5. 04 
- Set or clear priviletje fJags 



1056 
1062 
1066 
1070 
1074 
1100 



43 00 

44 00 

45 00 
46 

47 

48 
49 

50 00 

51 00 

52 00 

53 00 

54 00 

55 00 

56 00 
57 



1130 

1136 



1140 
1142 
1146 
1152 
1 1 56 
1160 
1162 



012705 
005764 
002002 
012705 
066405 
05 141 1; 



3 

4 

5 

6 

7 

8 

9 
10 
11 
12 

13 001030 0.1.0546 
14 
15 
16 

17 001032 

18 001036 

19 001042 

20 001044 

21 001050 

22 001054 
23 
24 
25 

26 00 

27 00 

28 00 

29 00 

30 00 

31 00 
32 
33 
34 

35 001102 

36 001104 
37 
38 
39 
40 

41 001106 

42 001114 



012705 
00 5764 
002002 
012705 
066405 
041415 



012601) 
000207 



012767 
012767 
012767 
012767 
000207 



010246 
1 2702 
012700 
012722 
077003 
01 2602 
000207 



000064 
000004 

000074 
000002 



000074 ' 
000004 

000064 •' 
000002 



0000000 
0000000 

ooooooc 
ooooooc 



176750 
1 76744 
1 76744 
176740 
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SBT7L PFLRTN — Bet or clear privilege flags 



PFLRTN is called while parsing a PRIVILEGE list to set or clear 
privilege flag bitti. 

I n p u t ii : 
R4 = Pointer to parsing command entry with the following offsets 
having the valuer shown: 
0<R4) = Privilege flag mask word. 

2<R4) = Offset to privilege word with privilege bit. 
4(R4) = + ==> Enable privilege.. ~ ==> Disable privilege. 



PFLRTN: MOV 



R5, -<SP) 



First set the flag in the PI-30 or PFCO vector 



1*: 



MOV 
TST 
BGE 
MOV 
ADD 
BIS 



#PFSO, R5 
4(R4) 
1$ 

#PFCO, R5 
2(R4), R5 
(R4), (RS.^ 



Assume we arts setting privilege 
Setting or clearing privilege? 
Br if setting privilege 
Point to clear — flag words 
Point to correct privilege word 
Set correct flag bit 



Now clear the bit in the complementary vector 



2$: 



MOV 


#PFCO, R5 


TST 


4<R4) 


BGE 


2* 


MOV 


#PFSO, R5 


ADD 


2(R4), R5 


B I C 


<R4), <R5 


f - i n i !i li e d 




MOV 


<SP)+, R5 


RETURN 





Assume we are granting privilege 

Are we setting or clearing privilege? 

Br if granting privilege 

Clearing privilege — Clear bit in set vector 

Point to correct privilege word 

Clear correct flag bit 



Set standard privileges for a normal job. 

PFLSTD: MOV #PO«*NPa PFSO ; Grant normal privileges 

MOV #P2**NP, PFS0■^2 

MOV #-X<:po**NP.>, PFCO; Remove all other privileges 

MOV #-^C<P2**NP>, PFCO+2 
RETURN 



Set all privilege flatis. 



000064 ' 
OOOOOOG 
177777 



PFLALL: 


MOV 


R2, -(SP) 




MOV 


#PFSO, R2 




MOV 


#PVNPW. RO 


1*: 


MOV 


#177777.. <R2)< 




SOB 


RO. 1* 




MOV 


(SP)+, 1^2 




RETURN 





; Point to privilege word 
j Get # privilege words 
; Set all flags 



'yr'-%j RrfK i'*n 



iDftnNj - 


i iDKM'lUlM aUDi'iJi. 


t, 1 T-l B S 


PFLRTN - 


— Set or c 1 ear 


p r i v i 1 B g 


58 








59 








60 








£)1 


UUl lt5# 


LliUci4^'J 




62 


001166 


012702 


000074 ' 


63 


001172 


012700 


OOOOOOG 


64 


001176 


012722 


177777 


65 


001202 


077003 




66 


001204 


0:l260;i 




67 


001206 


000207 
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C 1 p Br all privilege '■ 1 ..' <| f- 



•'FLNOW: 


MOV 


R2, -(SP) 




MOV 


#PFCO, R2 




MOV 


#PVNPW, RO 


1$: 


MOV 


#177777. (R2) + 




SOD 


RO, 1* 




MOV 


(SP)+, R2 




RETURiM 





i Point to clear-flag vector 

; Oet # privilege words 

; Say all flags are to be cleared 



T3KMN3 ■ 


— i iif^ni 


UM ti u D r 1.1 tines 


PRVLST ■ 

1 

2 
3 


-•- List 


nafnes of 


p r i V i 1 e 








4 








5 








6 








7 








a 








9 








10 








1.1 








12 








13 








14 








15 








16 


001210 


010067 


000200 


17 


001214 


010146 




18 


001216 


010546 




19 








20 








21 








22 


001220 


010201 




23 


001222 


012705 


OOOOOOG 


24 


001226 


005721 




25 


001230 


001002 




26 


001232 


077503 




27 


001234 


000464 




28 








29 








30 








31 


001236 


010401 




32 


001240 


003002 




33 


001242 


005401 




34 


001244 


005004 




35 








36 








37 








38 


001246 


012705 


000002 ' 


39 








40 








41 








42 


001252 


020365 


000010 


43 


001256 


00 1 046 




44 


001260 


016500 


000006 


45 


001264 


060200 




46 


001266 


036510 


000004 


47 


001272 


001440 




48 








49 








50 








51 


001274 


005704 




52 


001276 


001405 




53 


001300 






54 


001310 


005201 




55 


001312 


020127 


000076 


56 


001316 


1 0141 4 
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BBTTL PRVLST — Last names of privileges 



PRVLST is called to list the names of keiiwords associated with a certain 

set of privilege f 1 a tj r > . 

Inputs; 
R2 == Pointer to vector of privilege words. 
R3 = +1./-1 to select kc-ytuord ( + 1 ) or NOkeyword < -1 > 
R4 = Starting column number. 

i+ ===;> Insert leading comma, ~ ==> No leading comma) 
RO = Column number to indent to if we need to wrap around the line. 



Outputs: 
R4 •- Updated column number <positive). 



PRVLST: MOV 
MOV 
MOV 



RO, INDCOL 
R 1 , - ( SP ) 
R5.. -<SP) 



i Save col # to indent to 



See if there are any privileges to list 



10$: 



MOV 


R2, Rl 


MOV 


#PVNPW, R5 


TST 


<R1) + 


BNE 


11$ 


SOB 


R5, 10$ 


BR 


9* 



F^oint to privilege flag vector 

Get # words to check 

Any privilege flags set 7' 

Br if yes 

Check all priv words 

There ars not privileges to list 

Save column number information 

11$: MOV R4, Rl .: Get starting column number info 

i Br if leading comma wanted 
j Get positive column number 
i Wo leading comma wanted 

Initialize pointer to privilege keyword information table 

5$: MOV #PRVHD+2, R5 ; Point to first entry in table 

See if this entry is selected 



MOV 


R4, Rl 


BGT 


5$ 


NEG 


Rl 


CLR 


R4 



1$; 



CMP 


R3, 10<R5.^ 


BNE 


2$ 


MOV 


6<R5), RO 


ADD 


R2,R0 


BIT 


4(R5)> (RO) 


BLQ 


2$ 



Is this the right type of entry? 

Br if not 

Get offset to priv word in vector 

Point to correct privilege word 

Is this privilege flag set? 

Br if not 



hi;; entry is selected, print its keyword 



3$: 



57 001320 



TST R4 

BEG 3$ 

. TTYOUT #COMMA 

INC Rl 

CMP Rl,#62. 

BLUS 6$ 

. PRINT #CRLF 



Need leading comma? 

Br if not 

Print comma 

Count another column 

Time for a new line?" 

Br if not 

Start a new line 



TSKMN3 - 


— i ijKriuN S u D r (3 u tines 


PRVLST - 


— List 


names of 


p T> i V i 1 


58 


001326 


016704 


000062 


59 


001332 


010401 




60 


001334 


00530''! 




61 


001336 






62 


001346 


077405 




63 


001350 


011504 




64 


001352 


112400 




65 


001354 


001407 




66 


001356 


120027 


000052 


67 


001362 


001773 




68 


001364 






69 


001370 


00 5201 




70 


001372 


000767 




71 








72 








73 








74 


001374 


06 270 D 


000012 


75 


001400 


005715 




76 


001402 


001323 




77 








78 








79 








SO 


001404 


010104 




81 


001406 


01260D 




82 


001410 


012601 




S3 


001412 


000207 




84 


001414 


000000 





riMCKU VUD. U4 



7*; 

6$: 
4*: 



Monday 21- 


"Dec -87 1 


MOV 


INDCOL.. R 


MfJV 


R4, Rl 


DEC 


R4 


. TTYOUT 


#BLANK 


BOB 


R4, 7% 


MOV 


(R5),R4 


MOVB 


(R4)+, RO 


BE« 


2* 


CMPB 


RO. #'* 


BEQ 


4* 


. TTYOUT 




■f NC 


Rl 


BR 


4* 



Check n€?xt entry 



2* : ADD 


#10, , R5 


TST 


(R5) 


BME 


1* 


i 

> Fini*3-hed 




> 

MOV 


Rl, R4 


9*: MOV 


<SP)+, R5 


MOV 


(SP)+, Rl 


RETURN 




INDCOL: , WORD 
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Oet column to indent to 

Reset column counter 

Get # spaces to print 

Print a space 

Indent to desired column 

Get pointer to keyword string 

Get next character of keyword 

Br if finished 

Don't print "*" 

Print a character 
Count another column 
Go print rest 



; Point to next entry 

ils there another entry? 

■> Loop if yes 



J Return updated column # in R4 
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CKACOJ — Check if we are pr i v.i 1 eqed to access another job 



3 

4 

5 

6 

7 

8 

9 

10 

11 

1.2 

13 

14 

15 

16 

17 

18 

19 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 

53 
54 
55 
56 
57 



001416 010146 



001420 120267 OOOOOOG 
001424 001457 



001426 020127 OOOOOOG 

001432 101407 

001434 020127 0000000 

001440 101004 

001442 032767 OOOOOOG OOOOOOG 

001450 00143t7 



001452 032767 OOOOOOG OOOOOOG 1*: 
001460 001041 



001462 116701 OOOOOOG 

001466 126162 OOOOOOG OOOOOOG 

001474 001433 

001476 026201 OOOOOOG 

001502 001430 



. SBTTL CKACOv^ — Check if we are privileged to access another job 

Determine if the current job is privileged to affect the execution 
of another job. 

Inputs: 
R2 ■-- Line index number of job we want to affect. 

Outputs: 
An error message is printed if access is not allowed. 
C-flag set on return -~> Not allowed to access the job. 

CKACOJ: MOV R1,-(SP) 

Always allow access to our- own job 



CMPB 
DEO 



R2, CORUSR 
7* 



; Affecting our own job? 
; Br if yes 



Disallow access to detached jobs without DETACH privilege 



CMP 

BLOS 

CMP 

BHI 

B I T 

BEQ 



Rl, #LSTPL 

1* 

R 1 > #LSTDL 

1* 



; Primary 1 ine? 
> Br if 50 
; Detached 1 ine? 
; Br if secondary 



#PO$DET. PRIVCO ; Do we have DETACH privilege? 



6* 



i Br to error return if not 



If we have WORLD privilege we can access any job 

BIT #P2$WRL,PRIVC2 ; Do we have WORLD privilege? 
BNE 7* ; Br if yes 

Always allow access to ou-r- virtual lines and children jobs. 



MOVB 

CMPB 

BEQ 

CMP 

BBS 



C0RUSR;R1 i Get our job index number 

LNPRIM(Rl), LMPRIM(R2) ; Do we have the same primary line? 



7* 

LPARNT(R2.1, Rl 
7* 



Br if yes 

Are we parent to this job? 

Br if ye s 



See if project numbers of jobs match 



001504 026162 OOOOOOG OOOOOOG 2«: 

001512 001014 

001514 032767 OOOOOOG OOOOOOG 

001522 001020 



CMP LPR0J<R1), LPR0J<R2) i Do project numbers match? 

BiME 6* i Br if not — We cannot change job 

BIT #P2*GRP>PRIVC2 ; Do we have GROUP privilege? 

BNE 7* i Br if yes 



001524 026162 OOOOOOG OOOOOOG 

001532 001004 

001534 032767 OOOOOOG OOOOOOG 

001542 001010 



Project numbers match* check programmer numbers. 

CMP LPR0G<R1}, LPR0G<R2) ; Do programmer numbers match? 

BNE 6* i Br if not 

BIT #P2«SAM. PRIVC2 ; Do we have SAME privilege? 

BNE 7* .; Br if yes 

Wg cannot access the job 



€ 
C 
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CKACOJ — Check if UJe are pr i vi 1 etjed to access another job 

5a 001544 6*: FERR #EM*CAJ ; Cannot acce?55 that job 

59 001560 000261 SEC ; Signal error on return 

60 001562 000401 
61 
62 
63 

64 001564 000241 7-{i; CLC ; Signal success on return 

65 
oo 

67 J 

68 001566 012601 9*: MOV <SP)+, Rl 

69 001570 000207 RFTtiHN 



6*: 




FERR 

SEC 

BR 


#EM*C 
9* 


AJ 




> 


We c 


an acces 


s the 


JO 


b 


7-{i; 

> 


f • i n i 


CLC 
Bhed 









SPLACT 



v-> \*» U t W W V A I I cr 3 



Check if spooler is active 



sj^ nuiioay c;j.-juec-d/ ix:m t-'age x 



SBTTL SPLACT 



Check if spooler is active 



■■+ 
5 
6 
7 
S 
9 

10 00 

11 00 

12 00 

13 00 

14 00 

15 00 

16 00 

17 00 
19 00 

19 00 

20 00 

21 00 

22 00 



1572 
1 574 
1600 
1604 
1606 
1612 
1614 
1 620 
1622 
1624 
1626 
1630 
1632 



010046 
012700 
020027 
103010 
005760 
001003 
062700 
000767 
000261 
000401 
000241 
012600 
000207 



0000000 
OOOOOOG 

000000(5 

OOOOOOG 



Si''-L.ACr is called to determine if the spooling system is currently 

a c: t :i. v e o r i d .1. e . 



Outputs: 
C -f lag set ==> Spooler active 
C -flag clear ==> Spooler idle 



'LACT 



4*: 



:h : 

9$: 



MOV 


RO. -v'BP) 


ilDV 


#SDCB, RO 


CMP 


RO, #SDCBND 


BHIS 


2* 


TST 


SDFHD(RO) 


BNE 


3* 


ADD 


#SDCBSZ, RO 


BF? 


4* 


SEC 




BR 


9* 


CLC 




MOV 


(SP)+, RO 


RETURN 





POINT TO CONTROL BLOCK FOR 1ST SPOOLED DEV 

CHECKED ALL? 

BR IF YES 

ANY PENDING PRINT FILES? 

BR IF YES 

POINT TO NEXT DEV CONTROL BLOCK 

GO CHECK IT 

SPOOLER IS ACTIVE 

SPOOLER IS IDLE 



i 
I 

i 
i 

€ 
€ 



CHKTTD 



— I bf\nUfNi buDiott lines rtrtCHU VU[:i. u^- Monday 2i-Dec--8/ 13:4:1 Pagt 1« 

-- See if a device name is ft 



1 



4 
5 
6 
7 
S 
9 
10 
11 

13 
14 
15 
16 
17 
IS 
19 
20 



001634 020067 0000000 

O0l!^40 0014 ID 

001642 020067 176236 

001646 103403 

001650 020067 176232 

001654 101402 

001656 000241 

001660 00040.1 

001662 00026.1 

001664 000207 



. SBTTL CHKTTD — ir^ee if a device name .is TT 

CHKiTD :i5 called to determinR if a device name is TT or TTn. 

I n p (1 1 B : 
RO •- Rr3d50 device name. 

Out putt: 
C-flaq set ~=> Device name is TT 



; Ib device TT? 

.; B r i f u '- '> 

i Is it in the range TTO to TT7? 

i Br if not 



CHKTTD: 


CMP 


RO, 


R50TT 




nr."Q 


1* 






CMP 


RO, 


R SOT TO 




BLO 


2« 






CMP 


RO, 


R50Tr7 




BLOS 


1* 




2*: 


CI.C 








.OR 


9* 




1$: 


SEC 






9«: 


RETURN 







i Devic e is not TT 
i Device i s TT 



TSKHN3 - 
DOSTOP " 

1 

2 

3 

4 

5 

6 

7 

S 

9 

10 

11 

12 

13 

14 

15 

16 

17 

le 

19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 



- ! SKMGN SSub routines 
S t o p t hif 5 y E i- ( ■ m 
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001666 
001672 
001674 
001676 
001702 
001706 
00 1710 
00 1 7 1 4 
001720 
001724 
001726 
001732 
001734 



001736 
001742 
001746 
001752 
001756 
001760 
001764 
001770 



001774 

002000 
002006 
002014 

002034 



002036 
002074 
002076 
002104 



002112 
002132 

002134 

002144 



016703 
001421 
00 5002 
071227 
016702 
160302 
010267 
005067 
162703 
002423 
020327 
003020 
000415 



016702 
016202 
010267 
116703 
060302 
062702 
010267 
010367 



016703 
016367 



103437 



103417 
016767 



lOSOO-l 



. BBTTL DOSTOP 



Litop the system 



We want to stop the system. 

Read block of boot device into memory. 



0000000 



000050 
OOOOOOG 

176212 

OOOOOOG 

000036 

000007 



DOSTOP: MOV 
BEQ 
CLR 
DIV 
MOV 
SUB 
MOV 
CLR 
SUB 
BLT 
CMP 
BGT 
BR 



BOTDEV, R3 

2* 

R2 

#50, R2 

BOTDEV; R2 

R3, R2 

R2/ BOTHAN+2 

BOTUNI 

#36, R3 

4* 

R3, #7 

4* 

3* 



GET RAD50 NAME OF BOOT DEVICE 

BR IF NO DEV NAME SPECIFIED — BOOT FROH SY: 

Clear high order 

Get the RAD50 unit number 

Copy RAD50 name of boot device 

Remove unit number from boot device 

Put name is lookup 

Clear boot unit number 

Convert RAD50 unit to numeric 

Br if less than 

Compare to valid device unit number 

Br if greater than 7 



Booting from the system dt?vice. 



OOOOOOG 
OOOOOOG 
176154 
00000 IG 

000036 

OOOOOOG 

OOOOOOG 



OOOOOOG 
OOOOOOG 176116 



?*: 



3*: 



MOV 


SYINDX, R2 


MOV 


PNAME(R2), R2 


MOV 


R2, BOTHAN+2 


MOVE 


SYUNIT+1, R3 


ADD 


R3, R2 


ADD 


#36, R2 


MOV 


R2, BOTDEV 


MOV 


R3, BOTUNI 



GET DEVICE TABLE INDEX # FOR SY DEVICE 

GET RAD50 NAME OF SYSTEM DEVICE 

Put name in lookup 

GET UNIT # OF SYSTEM DISK 

ADD UNIT NUMBER TO BOOT DEVICE NAME 

CONVERT TO RAD50 UNIT NUMBER 

BOOT FROM THIS DEVICE 

SAVE BOOT DEVICE UNIT # 



Find the device's CSR address. 



OOOOOOC OOOOOOG 



4*: MOV SYINDX, R3 ; Get device table index # for SY device 
MOV PNAME<R3), BOTHAN; Get RAD50 name of system device 
. SERR ; Don't abort on lookup errors 

.LOOKUP #XAREA, #1, #BOTHAN i Try to open handler file 
BCS 99* ; Error on lookup 

Read block of handler and save information about CSR address 

. READW #XAREA, #1, #BLKO, #256. , #0 i Read block of handler 

BCS 99$ i Error on read 

MOV BLKO+H. CBR, BOTCSR ; Save CSR info 

.CLOSE #1 ; Close channel 

Read the primary and secondary bootstrap. 

.LOOKUP #XAREA, #1,#B0TDEV; DO NON-FILE-STRUCTURED LOOKUP ON BOOT DEVICE 

BCC 1* ; BR IF LOOKUP SUCCESSFUL 

99*; FABORT ttBADBOT i ERROR ON BOOT LOOKUP 

> Read primary driver into memory. 

1*: .READW #XAREA, #1, #ST ART, #256. , #0j Read primary bootstrap 

. READW #XAREA, #1, #START+512. , #1024. , #2i READ SECONDARY BOOTSTRAP 

i Do special Kmon EMf to reboot. 

.: <Th3S emt will copy the bootstrap to low memory and enter it) 



TSKMN3 — TSKMON Subroutines MACf^O V05. 04 Monday 21 -Dec -87 .11; 41 Page 19-1 
DOSTOP — Stop the sy&tem 

58 002242 012700 0000000 5*: MOV #BDTEMT, F^O 

59 002246 10437;:. EMT 375 ; REBOOT 



IbKMNLi — ibKHUN budrou tines 
FUSHCF — Push a command file 



nrtCKU vutK V'^i Monday ^1-Dec-S7 11: 4j Page riO 



1 

2 

3 

4 

5 

6 

7 002250 

S 002252 

9 002256 
10 002264 
11 

12 0O2266 

13 002274 

14 002276 

15 002304 

16 002310 

17 002312 
IS 002320 

19 002326 

20 002334 

21 002336 

22 002344 



SBTTL PUSHCF — Put.} 



I £1 



t;ommr3nd file 



23 
24 

26 



31 



46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 



002346 



002352 

27 002354 

28 002360 

29 002364 
30 

002366 
002372 



33 

34 002410 

35 002414 
36 

37 002420 

38 002424 

39 002426 

40 002432 
41 

42 002434 

43 

44 002440 

45 



002444 
002450 

002456 
002462 
002466 
002470 
002474 
002500 
002502 
002504 
002510 



010146 
116701 

032761 
00 1 030 

1 32767 
OQ 1 403 
116767 
005767 
001003 
1 1 6767 
042761 
032761 
00 1 524 
052761 
000520 

010346 
010446 
010546 
016705 
020527 
103535 



016745 
016745 

012703 
01434;} 
020327 
101374 

016745 

016145 

016745 
1 1 6767 

016745 
016704 
005204 
042704 
012703 
020304 
103005 
020527 
10M63 



PUSHCF IS CALLED TO PUSH THE STATUS OF THE CURRENTLY OPEN 
COMMAND FILE ON A STACK SO A DEEPER LEVEL FILE CAN BE OPENED. 
ALL REGISTERS ARE PRE3ERVi-D. 



0000000 
0000000 



OOOOOOG 



OOOOOOG OOOOOOG 
OOOOOOG 



OOOOOOG 
OOOOOOG 

OOOOOOG 
OOOOOOG 
OOOOOOG 



OOOOOOG 
OOOOOOG 
OOOOOOG 



OOOOOOG OOOOOOG 



PUSHCF: MOV 
MDVB 
B I T 

BHE: 

} THERE IS NO 
BTTR 

MOVE 
11*: TST 
BNE 
MOVE 
8*: BIC 
BIT 
BEG 
BIS 
BR 
; THERE IS 



Rl: 



■ < SP ) 



CORUSR, RJ 
#«CFDPN> LSW4<R1 ) 
6* 
COMMAND FILE OPEN 
#TW«ACT.. INDSjTA 
11$ 

INOSTA, CFIND 
CFPNT 
8* 
INOSTA, CFINO 



GET USER INDEX # 
IS A COMMAND FILE 



OPEN NOW? 



BR IF 
NOW 
TS TND 



YE? 



SAVE ITS STATUS 
IN USE NOW? 



ACTIVF NOW'? 

BR IF NOT 

IF IND IS ACTIVE, 

IS A COMMAND FILE 

BR IF YES 

SAVE IND STATUS FLAGS 
#CFLFL4,LSW4<Rl)i CLEAR MISC COMMAND FILE FLAGS 
#*QTSET, LSW2<R1)jD0ES HE WANT QUIET OR NOQUIET 



BR IF NOQUIET WANTED 
SET QUIET 



AN 



6*: 



OOOOOOG 
OOOOOOC 



MOV 
MOV 
MOV 
MOV 
CMP 
BLO 



9* 

#*QUIET, LSW4<R1). 
9* 
OPEN COMMAND FILE WHICH NEEDS TO BE PUSHED 
R3, ~<SP) 
R4, -<SP> 
R5, -<SP) 
CFSP, R5 



; GET SAVE STACK 
R5, #<CFSENDt-20. +<2-«-PVNPW»; ROOM 



POINTER 
ENOUGH TO 



START PUSH? 



162705 000012 



DO 



NOW 



CFOVFL 
SAVESTATUS TO SAVE FILE 

SUB #10. , R5 

. SAVEST #XAREA, #CFCHAN. 
SAVE BUFFER POINTERS 



;BR IF STACK OVERFLOW WOULD OCCUR 
NAME 

i NEED 5 WORDS FOR . SAVEST 
R5 



OOOOOOG 
OOOOOOG 

OOOOOOC 

OOOOOOG 

OOOOOOG 

OOOOOOG 

OOOOOOG 
OOOOOOG 

OOOOOOG 
OOOOOOG 

000001 
OOOOOOG 

000002G 



MOV CF6LK, --(RS) 

MOV CFPNT, -(R5) 

i Save command file privileges 

MOV #PRIVF0+<2*PVNPW.>, R3 

12«: MOV -<R3),-(R5) 

CMP R3, ttPRIVF'O 

BHI 12$ 

i Save command file attribute 

MOV AFCF, -(R5) 
i SAVE QUIET STATUS 

MOV LSW4(R1 ), -(RS) 



CURRENT FILE BLOCK # 
CURRENT POINTER INTO BUFFER 

Point past last privilege 
iPush each privilege uiord 
^Pushed all yet? 
; Br if more to push 
flags 
iPush attribute flags 



uford 



SAVE QUIET FLAG 



OOOOOOG 



Save IND status 

MOV CFIND, -<R5) 
MOVE INDSTA,CFIND 

NOW SAVE INFO ABOUT PARAME' 



MOV 


CURPRM, -(R5) 


MOV 


PEFEND, R4 


I Nc; 


R4 


BIC 


#1, R4 


MOV 


#PRMBUF, R3 


CMP 


R3, R4 


BHIS 


1$ 


CMP 


R5, #<CFSENDf-2 


BLOS 


CFOVFL 



i PUSH IND STATUS FLAGS 

i SET NEW IND STATUS FOR COMMAND FILE 
ERS 

; CURRENT PARAMETER POINTER 
iADDR OF END OF PARAMETER STRING 
; ROUND UP TO NEXT WORD 



POINT TO START OF PAR AM STRING 
PUSHED ALL ON 
BR IF YES 
STACK OVERFLOW? 
BR IF OVERFLOW 



TSKMNS — TSKMON Subroutines 
PUSHCF — Push a commaiid file 






iiuiiudy cci-uec-a/ l.u-'tj 



t-'aqe hiO-l 



58 002512 

59 0025.1.4 

60 002516 



62 

63 

64 

65 

66 

67 

68 

69 

70 

71 

72 

73 

74 

75 

76 

f f 

78 

79 

80 

81 

82 

S3 

84 

85 

86 

87 

88 

89 

90 

91 

92 

93 

94 

95 

96 

97 

98 



002520 
002522 
002526 
002530 
002532 
002536 
002540 
002542 
002546 
002550 
002552 
002554 
002560 

002562 

002574 
002600 
002602 
002604 

002606 
002612 
002616 
002622 
002626 
002632 
002634 
002640 
002642 

002650 
002654 
002656 



002660 



01234r> 

00077.1. 
01044;} 

005045 
012703 
005743 
00 1 004 
020327 
101373 
000410 
020527 
101444 
011345 
005743 
020327 
103370 

010567 

0/1 '') "7 ^ I 

105267 
012605 

012604 
012603 

012700 

004767 

005067 

005067 

012701 

005021 

020127 

103774 

012767 



012601 
000207 



1$; 



MOV (R3)+, -<R5) 
BR 2* 
MOV R4, -(R5) 
rUBH PARftntltK POINTERS 



OOOOOOQ 



OOOOOOG 



0000000 



OOOOOOG 



OOOOOOG 

OOOOOOG OOOOOOG 
OOOOOOG 



CLR 

MOV 
4$: TST 

BNE 

CMP 

BHI 

BR 
3*: CMP 

BLOS 

nov 

TST 

CMP 

BHIS 
i we HAVE SAVED 
5*: MOV 

B .1 C 

INCB 

MOV 

MOV 

MOV 



~(R5) 

#LSTPRM.. R3 

-(R3) 

3* 

R3, #PRMPNT 

4* 

5* 

R5, #CFSEND 

CFOVFL 

(R3), ~(Rr;) 

- ( R3 ) 

R3, #PRMPNT 

3* 

ALL INFORMAT.ION 
R5, CFSP 

#*CFOPN, LSW4<R1) 
CFNEST 
<SP)+, R5 
<SP)+, R4 
(SP)+, R3 



PUSH PARAMETER STRING 

PUSH POINTER TO END OF STRING 

PUSH ZERO TO MARK END 

POINT TO LAST PAR AM PTR CELL 

IS POINTER IN USE? 

BR IF YES 

CHECKED ALL? 

BR IF NOT 

BR IF NO PARAMETERS DEFINED 

ROOM TO PUSH INFO? 

BR IF STACK OVERFLOW 

PUSH PARAMETER POINTER 

POINT TO NEXT PARAM POINTER CELL 

MORE TO PUSH? 

BR IF YES 

NEEDED TO RESTART INDIRECT FILE 

SAVE STACK POINTER 

SAY NO FILE IS OPEN NOW 

SAY WE ARE NESTED DEEPTER 



OOOOOOG 

001002 

OOOOOOG 

OOOOOOG 

OOOOOOG 

OOOOOOG 

OOOOOOG OOOOOOG 

OOOOOOG 



9*: 



SET UP POINTERS FOR NEW 



7%: 



Say 



MOV 
CALL 
CLR 
CLR 
MOV 
CLR 
CHP 
Bi...O 
MOV 
that IND 
CLRB 
MOV 
RETURN 



CLEAR 
CLEAR 



#CFBUF, RO 

CFSTRT 

CFBLK 

CURPRM 

ttPRMPNT, Rl 

(Rl)-+- 

Rl, #LSTPRM 

7* 

#PRMBUF, PBFEND ; SAY 

is not active nouj 

INOSTA i SAY 

<SP)+,R1 



COMMAND FILE 

SET POINTER TO COMMAND BUFFER 
IN IT POINTER INTO BUFFER 



RESET FILE BLOCK # TO ZERO 
PARAM STRING POINTER 
ALL PARAM POINTERS 



NO PARAM STRING YET 
IND IS NOT ACTIVE NOW 



; ERROR -- OVERFLOW OF 
CFOVFL; FABORT #CF2DI:-P 



F:(LF SAVE STACK 



( 



TSKMN3 
POf^CF 



— TSKMDN Subroutines 
— • Pop a rofnmand f:tle 
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1 
2 
3 
4 
5 
6 
7 
S 
9 
10 
11 

1 o 
J. c^ 

13 

14 

15 

16 

17 

18 

19 

20 

21 



25 
26 
27 
28 
29 
30 
31 

33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 



002670 
002672 
002676 
002704 
002710 

002716 
002720 
002726 
002732 
002740 

002742 

002750 
002754 

002756 
002764 
002772 
003000 
003004 
003010 



003012 
003014 
003016 
003020 
003024 
003030 
003032 
003034 
003036 
003040 
003044 
003046 
003050 

003052 
003054 
003060 
003064 
003066 
003070 
003072 



010146 
i 167'01 



04; 



il 



105767 
00 1 003 

nA=;7A'7 

w \t/ w .- %,r ^ 

00 1 563 
116767 
105067 
032761 
001403 



1 r-iXr^'-r jl '7 

001016 

042761 
042761 
042761 
004767 
004767 
000526 



010346 
010446 
010546 
016705 
012703 
012504 
001402 
010423 
000774 
020327 
103002 
005023 
000773 



010467 
020427 
1 1 402 
012544 
000773 
012567 



003076 012567 



OOOOOOG 
0000000 
OOOOOOG 

0000000 

OOOOOOG 
OOOOOOG 
OOOOOOG 



OOOOOOG 



OOOOOOG 
OOOOOOG 
OOOOOOG 
000570 
1 75336 



OOOOOOG 
OOOOOOG 



OOOOOOG 



003102 

003106 



012704 
040461 



OOOOOOG 
OOOOOOG 



OOOOOOG 

OOOOOOG 

OOOOOOG 
OOOOOOG 



SBTTL PDPCF — Po\f 



c ommand file 



POPCF IS CALLED TO CLOSE THE CURRENTLY OPEN INDIRECT COMMAND 
FILE AND REOPEN THE ONE WHICH IS NEXT HIGHER IN THE STACK. 
ALL REGISTERS ARE PRESERVED. 



OOOOOOG 



OOOOOOG 
OOOOOOG 



POPCF: MOV R1,-<SP) 

MOVE CORUSR,R.I 

B I C #*CFCCL. LSW4 < R 1 ) 

TSTB CFNEST 

BNE 1 0* 

TCT rCTDMT 

BEQ 9* 

10*: MOVE CFIND, INDSTA 

CLRB CFHOLD 

B I T #*CFOPN.. LSW4 < R i ) 

BEQ 1* 
; CLOSE CURRENTLY OPEN FII L 

. CLOSE ttCFCHAN 



GET USER INDEX NUMBER 

SAY WE HAVE FINISHED ANY CCL COMMAND 

Any nested command filesT' 

Br if yeB 

ANY INDIRECT FILES IN USE? 

BR IF NOT 

RESTORE IND STATUS FLAGS 

CLEAR ANY COMMAND FILE HOLDING CHAR 

IS ©FILE CHANNEL OPEN NOW? 

BR IF NOT 



CLOSE 



SEE IF THERt IS A HIGHER 



1*: 



OOOOOOG 
OOOOOOG 
OOOOOOG 



BNE 
THERE ARE NO 

BIC 

BIC 

BIC 

CALL 

CALL 

BR 
REOPEN NEXT 



CFNEST 

2« 

HIGHER 



NDW1 



THE FILE 
LEVEL FILE TO RESTORE 

; ANY FILES ON STACK 
; BR IF YES 
LEVEL FILES 
#<*CFOPN ! «CFALL ! *CFSOT>, LSW4 (Rl ) ; CLEAR COMMAND FILE FLAGS 



#*NOIN, LSW3<R1 ) .; 
#*SUCF. LSW9<R1) i 
CFSTOP i 

RSTPRV i 

9* 
HIGHER LEVEL FILE 



Allow input to be accepted for line 
Say start-up command file finished 
Suspend command file input 
Reset command file privileges 



RESTORE PARAMETER 



?*: 



4*: 



3*: 



MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

BEQ 

MOV 

BR 

CMP 

BHIS 

CLR 

BR 



POINTi-RS 
<SP) 
< SP ) 



R3, 

R4, 

R5. "(SP) 

CFSP,R5 

#PRMPNT, R3 

(R5)+, R4 

3* 

R4, <R3)+ 

4* 

R3. #LSTPRM 

5* 

(R3) + 

3* 



GET STACK POINTER 

POINT TO PAR AM POINTER CELLS 

GET A PARAMETER POINTER 

BR IF END OF LIST HIT 

RESTORE POINTER 

ZERO ALL OTHER PARAM POINTERS 



RESTORE PARAMETER STRING 



5$: MOV 
MOV 

?*; CMP 
BLOS 
MOV 
BR 

6*: MOV 

; ReEtnre IND 
MOV 

i RESf 



(R5)+, R4 

R4, PBFEND 

R4, #PRMBUF 

6$ 

<R5)+, -<R4) 

7* 

<R5)+, CURPRM 
status flani. 

(R5)+, CFIND 
COMMAND FILE CONTROf,, 
MOV #CFLFL4, R4 
BIC R4,LSW4(R1) 



GET ADDRESS OF END OF STRING 

RESTORED ALL OF PARAM STRING? 

BR IF YES 

POP STRING OFF STACK 

POP POINTER INTO STRING 



i RESTORE IND STATUS FLAGS 
FLAGS 

i GET MIST CONTROL F"LAGS 
.: CLEAR THOSE FLAGS 



TSKMN3 • 
PDPCF ■ 

58 
59 
An 

61 

62 
63 
64 
65 
66 
67 
68 
69 
70 
71 
72 
73 
74 
75 
76 
77 
78 
79 
80 
81 
82 
S3 
84 
85 
86 



TSKMON Subroutines 
Pop a conimand file 
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Page 



21-1 



003112 
003114 
n031 16 

003122 

003126 
003132 
003134 
003140 
003142 

003146 
003150 
003154 

003160 
003176 

003202 

003242 
003246 
003252 
003260 
003262 
003264 
003266 



00 5 10''! 
04041 'J 
052561 

012567 

012700 
012520 
020027 
103774 
004767 

012500 
004767 
012567 



010567 
105367 
052761 
012605 
012604 
012603 
01260.1 
000207 



0000000 
0000000 
0000000 

ooooooc 

175200 



000444 
0000000 



062705 000012 



0000000 
0000000 
0000000 



MASK ALL BUT 



JSE FLAGS 



0000000 



COM R4 

BIC R4. (Rti) 

BIS (R5)+, LSW4<R1) J SET DESIRED COMBINATION 
; Restore command file attribute flags 

MOV <R5)+, AFCF ; Restore attribute flags 
i Restore command file privilege flags 

MOV #PRIVFO>RO i Point to privilege vector 
11*: MOV (R5)+, (R0.)+ i Pop a privilege flag 

CMP RO. #PR I VFO f <2i*P VNPW>> Popped all? 

BLO 11* •• Loop if not 

CALL RSTPRV j Reset some flags 

8*: MOV (R5.)+.. RO i POINTER INTO BUFFER 

CA| L CFSTRT ;Set command file buffer pointer 

MOV <R5)+, CFBLK ; CURRENT FILE BLOCK NUMBER 
; NOW REOPEN THE INDIRECT COMMAND FILE 
. REOPEN #XAREA> #CFCHAN, R5 

ADD #10. ,R5 J POP FILE NAME INFO OFF STACK 

i REREAD CURRENT BUFFER 

. READW #XAREA, #CFCHAN, #CFBUF, #256. , CFBLK 
; FINISHED RESTORING FILE 

SAVE UPDATED STACK POINTER 
SAY ONE LESS FILE ON STACK 
SAY CHANNEL IS OPEN 



9*: 



MOV 


R5, CFSP 


DECS 


CFNEST 


BIS 


#*CFOPN.. LSW4(R1) 


MOV 


(SP)+, R5 


MOV 


(SP)+, R4 


MOV 


(SP)+/ R3 


MOV 


( SP ) +, R 1 


RETURN 





( 



TSKMN3 
ABRTCF 



3 

4 

5 

6 

7 

8 

9 

10 

11 

■I 2 

13 

14 

15 

16 

17 

18 

19 

20 

21 

22 

23 

24 

25 

27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
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— Abort all command files 

. SBTTL ABRTCF -- Abort all command files 



003272 010146 

003274 116701 0000000 

003300 016700 0000000 

003304 00 1 404 

003306 004767 000306 

003312 005067 0000000 



003316 105767 0000000 

003322 001003 

003324 005767 OOOOOOG 

003330 00 1 407 



ABRTCF" is called to ciosf ail open indirect command files 
including those on tht- stack. 

If IND is active^ only command files under IND are aborted. 
All registers are preserved. 



GET USER INDEX # 

Is there a suspended command file? 

Br if not 

Restart command fi.l.e input 

No more suspended command file 



ABRTCF: 


MOV 


R 1 , - ( SP ) 




MOVQ 


CORUSR, Rl 




MOV 


CFSPND, RO 




BEQ 


2* 




CALL 


CFST.RT 




CLR 


CFSPND 



Abort all nested copiffland files 



003332 



1767 OOOOOOG OOOOOOG 3*: 



003340 001003 

003342 004767 177322 

003346 000763 



TSTB 


CFNEST 


BNE 


3* 


TST 


CFPNT 


BEQ 


4* 


BITB 


#IN$ACT.. .INDSTA 


BNE 


4* 


CALL 


POPCF 


BR 


2* 



; Any nested command files? 

; Br if yes 

i IS AN INDIRECT FILE OPEN? 

; BR IF NOT 

i Have we reached the level of IND? 

; Br if yes — Leave IND in control 

; CLOSE IT 



Reset misc command file related values 



003350 042761 OOOOOOG OOOOOOG 4*: 



003356 042761 
003364 042761 
003372 105067 



OOOOOOG OOOOOOG 
OOOOOOG OOOOOOG 
OOOOOOG 



003376 004767 174744 



003402 012601 
003404 000207 



BIC #$CFABT, LSW6<R1 ); SAY ALL COMMAND FILES HAVE BEEN ABORTED 

BIC #$NTGCC, LSW9<R1 )i Clear saved ctrl-C flag 

BIC #$CFDCC,LSW4<R1 ) 

CLRB UERSEV ; CLEAR USER ERROR FLAG 

Reset command file privileges from set privileges 

CALL RSTPRV ; Reset current privileges 

F" i n i & h e d 

MOV (SP)+, Rl 
RETURN 



TSKMN3 
INDABT 
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;l 



3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 



. SBTTL INDABT — Abort execution of IND and nested command files 

INDABT is called to abort the execution of IND and of any nested 
command files. 



6 010146 
003410 116701 



OOOOOOG 



INDABT: MOV 
MOVE 



R 1 , - ( SP ) 
CORUSR, Rl 



Close command files 



003414 016700 0000000 

003420 00 1 404 

003422 004767 000172 

003426 005067 OOOOOOS 

003432 005767 OOOOOOG 2.^: 

003436 00 1 40:.]i 

003440 004767 177224 

003444 000772 

003446 042761 OOOOOOC OOOOOOG 1$: 

003454 105067 OOOOOOG 



003460 105067 0000000 

003464 042761 OOOOOOG OOOOOOG 

003472 042761 OOOOOOG OOOOOOG 

003500 042761 OOOOOOG OOOOOOG 



MOV 

h i^ S.X 

CALL 

CLR 

TST 

BEQ 

CALL 

BR 

BIC 

CLRB 

Stop I WD 

CLRB 
BIC 
BIC 
BIC 



; Get user index # 



Is there a suspended command file? 



i.r i At I I v.^ w 

Restart suspended command file 
No more suspended command file 
Is an indirect file open?" 
Br if not 
CI ose it 



CFSPND, RO 

2* 

CFSTRT 

CFSPND 

CFPNT 

1* 

POPCF 

2* 

#$CFKIL !*CFABT> LSW6<R1 ) J Say command files have been aborted 

UERSEV /Clear user error flag 



INDSTA iSay IND is finished 

#«INDRN.. LSWSv'Rl ); Say IND is not running now 
#*NTGCC, LSW9(R1 )> Clear saved ctrl-C flag 
#*CFDCC. LSW4(R1) 



003506 004767 174634 



003512 012767 OOOOOOC OOOOOOC 

003520 

003540 103413 

003542 012767 OOOOOOG OOOOOOC 

003550 



003570 01260.1 
003572 000207 



Reset privileges 

CALL RSTPRV j Reset privileges 

Eliminate IND global PLAS region 



MOV 
. CRRG 
BCS 
MOV 
. ELRG 



P' i n i s h e d 



3*: 



MOV 
RETURN 



#<RS. GBL.'RS. PVT>, INDRDB+R. GSTS ; Set status flags in RDB 

#XAREA, #INDRDB ; Try to attach to IND region 

3* ; Br if cannot attach 

#RS. EGR. INDRDB+R. GSTS > Set el iminate-g lobal-reg ion flag 

ttXAREA, #INDRDB i Eliminate the region 



<SP)+.. Rl 



\ 



TSKMNS - 
CFSTOP - 

1 

2 

3 

4 

5 

h 

7 

8 

9 

10 

11 

12 

13 

^._-^ 14 

15 
16 
17 
IS 
19 
20 

c J. 

22 
23 
24 
25 
26 
27 
28 
29 
30 
31 

33 
34 
35 
36 
37 
— — > 38 
39 
40 
41 
42 
43 
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Stop input from a command file 



003574 010046 



003576 005067 OOOOOOG 



. SBTTL CFSTOP — Stop input from a command filt? 
; Zero CFPNT to say input is not coming from a command file. 

i 

CFSTOP: MOV RO, -(BP) 

i Say input not coming from a command file 

CLR CFPNT ; Clear command file buffer pointer 

Reset status flags in RMDN cell 



003602 016700 OOOOOOG 

003606 042760 OOOOOOG OOOOOOG 



003614 012600 
003616 000207 



MOV 
BIC 

Finished 



CXTRMN> RO iGet virtual address of RMDN 
#CFACFL, R$CFST(RO) ; Say input not from CF 



003620 010046 



003622 010067 OOOOOOG 
003626 001405 



003630 016700 OOOOOOG 

003634 052760 OOOOOOG OOOOOOG 



003642 012600 
003644 000207 



MOV (SP)+, RO 
RETURN 

.SBTTL CFSTRT — Start input from a command file 

Store a buffer pointer into CFPNT to start command file input. 

1 n p u t B : 
RO == Value to be stored into CFPNT 

CFSTRT: MOV RO, -(SP) 

Store buffer pointer into CF"PNT 



MOV 
BEQ 



RO, CFPNT 
9* 



.; Set CF buffer pointer 

J Br if not starting command file 



Set status flags in RMDN cell 



MOV 
BIS 

Fini shed 



CXTRMN, RO ;Get RMON address 

#CFACFL, R*CFST<RO)i Set command-file-active flags 



9*: MOV <SP)+, RO 
RETURN 



TSKMN3 - 


- TSKMON Subrou 


tines 


CFSQEZ - 

1 
2 
3 


— Squeeze space 


in comm 








4 








5 








6 








7 








8 








9 








10 








11 








1 '^ 








13 








14 








15 








16 


003646 


010246 




17 


003650 


010346 




IS 


003652 


010446 




19 








20 








21 








22 


003654 


012703 


0010000 


23 


003660 


016704 


0000000 


24 


003664 


00 1411 




25 








26 








27 








28 








29 


003666 


010302 




30 


003670 


020204 




31 


003672 


101404 




32 


003674 


U4200 




33 


003676 


001774 




34 


003700 


1 1 0043 




35 


003702 


000772 




36 


003704 


010367 


OOOOOOG 


37 








38 








39 








40 


003710 


010300 




41 


003712 


012704 


0000000 


42 


003716 


020304 




43 


003720 


101402 




44 


003722 


105043 




45 


003724 


000774 




46 








47 








48 








49 


003726 


012604 




50 


003730 


012603 




51 


003732 


012602 




52 


003734 


000207 
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. SBTTL CFSQEZ — Squeeze space in command file buffer 

CFSfiEZ i5 called to squeeze all remaining commands in the current 
command file buffer to the top of the buffer. 

Nulls are removed and all pending commands are moved up against 
the top of the buffer. 

Inputs: 
CFPNT: 0-=>Command file not active. 

Non-zero==>Point6 to start of pending commands in buffer. 

Outputs: 
CFPNT: Points to start of pending commands in buffer. 
RO ■- Top of free area in buffer. 



CFSQEZ : 



HDV 
MOV 
MCtV 



R2, - < SP ) 
R3, -<SP) 
R4, -<SP) 



Determine if there avB any pending commands in the command file buffer 



MOV 
MOV 
BEQ 



#CF6UF+512. ,R3 ; POINT PAST TOP OF BUFFER 

CFPNT, R4 i <3ET POINTER TO PENDING COMMANDS 

4* iBR IF THERE ARE NO PENDING COMMANDS 



There are pending commands in the buffer. 
Move them to the top of the buffer. 



Hi 



6$: 

4*: 
3*: 



MOV 


R3, R2 


CMP 


R2, R4 


BLOS 


6* 


MOVB 


-<R2),R0 


BEQ 


1* 


MOVB 


RO, -(R3) 


DR 


1* 


MOV 


R3, CFPNT 



GET POINTER TO TOP OF BUFFER 

HAVE WE MOVED ALL PENDING COMMANDS? 

BR IF YES 

GET NEXT CHAR 

AND SKIP NULLS 

PACK INTO TOP OF BUFFER 



; SAVE NEW COMMAND FILE POINTER 

Null fill buffer from base up to start of pending commands 

SAVE POINTER PAST TOP OF FREE AREA 

POINT TO BASE OF BUFFER 

HAVE WE FILLED TO BASE? 

BR IF YES 

NULL FILL BUFFER 



5$: 



MOV 


R3, RO 


MOV 


#CFBUF, R4 


CMP 


R3, R4 


BLOS 


5* 


CLRB 


-(R3) 


BR 


3* 


F i n i E h e d 




MOV 


<SP.>+, R4 


MOV 


<SP)+, R3 


MOV 


<SP)+, R2 


RETURN 





TSKMN3 - 
LOGCHK 

1 
2 
^5 
4 
5 
6 
7 
& 
9 
10 
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Check 



see if log file is on specified dev 



11 003736 010246 



13 
14 
15 
16 
17 
18 
19 
20 
21 



003742 
003744 



003746 
003754 



23 

24 003756 

25 003762 
26 

27 
28 
29 

30 003764 

31 003770 
32 

33 
34 

35 003772 

36 003774 

37 003776 

38 004002 

39 004004 
40 

41 
42 

43 004006 

44 004010 

45 004014 

46 004020 

47 004022 

48 004026 

49 004032 

50 004034 

51 004040 

52 004042 

53 004046 
54 

55 
56 
57 



010446 
ni 01=546 



032767 
001445 



004767 
103442 



020467 
001406 



000300 
050004 
020467 
00 1 032 
000421 



006300 
016004 
016002 
010203 
066003 
020467 
00 1016 
026702 
103413 
026703 
103010 



0000000 OOOOOOG 



005634 



OOOOOOG 



OOOOOOG 



OOOOOOG 
OOOOOOG 

OOOOOOG 
OOOOOOG 

OOOOOOG 

OOOOOOG 



SBTTL LOGCHK 



Check to see if log file is on specified dev 



LOGCHK is called to determinB if the log file is open to a specified 

device or to a subdevice contained within the specified device. 

If the log file is on the specified device, print a warning message 

and close the log file. 



Inputs: 
R5 =• Rad50 name of device. 



LOGCHK: MOV 
MOV 
MOV 
MOV 



R2, -OP) 

FJO _ / Op \ 

R4, -<SP) 
R5, -(SP> 



See if the log file is currently open 

BIT #LF$OPN.. LOGFLG ils the log file currently open? 

BEQ 9* i Br if not 

The log file is opt-n. 

Convert device name into device # and unit # 



CALL 
nrcj 



CHKDEV 
9* 



; Cvt name to dev # and unit # 
; Br if don't recognize name 



At this point, RO = unit number, R4 = device index number. 
Determine if this is a physical or logical disk. 



CMP 
BEQ 



R4, LDDEVX 
1* 



This is a physical di&k 



SWAB 


RO 


BIS 


RO, R4 


CMP 


R4, LOGDVU 


BNE 


9* 


BR 


8* 



This is a logical disk 



1*: 



ASL 


RO 


MOV 


LDPDEV<R0),R4 


MOV 


LDBASE<R0),R2 


MOV 


R2, R3 


ADD 


LDSIZE(R0>,R3 


CMP 


R4, LOGDVU 


BNE 


9* 


CMP 


LOOBAS, R2 


BLO 


9* 


CMP 


LOGBAS, R3 


BHIS 


9* 



ils this a logical disk? 
; Br if yes 



Get unit # to high-order byte 
Combine device and unit # 
Same device as log file? 
Br if not 
Br if yes 



j Convert unit # to word table index 
.; Get physical dev # and unit # 
; Get base block # of logical disk 

; Get top block # of logical disk 

ils log file on same physical disk? 

i Br if not 

i Is log file on log disk within this disk? 

5 Br if not 



Log file is on the specified device 

Pring s warning message and close the log file. 



c 

I 
c 
< 

I 
I 
i 

€ 
€ 

i 
i 
i 

4 

1 
i 
€ 

i 
i 

i 



ioKriiNa - 


-■- t annuiM auoro 


LOeCHK - 


- Check 


to see 


58 


004050 




59 


004064 


004767 


60 






61 






62 






63 


004070 


012601) 


64 


004072 


1 2604 


65 


004074 


012603 


66 


004076 


012602 


67 


004100 


000207 
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8'*: 



0000 1; 



9S: 





PyARN 


#TM*CLG 




CALL 


LOGCLS 


Fi) 


i & h e d 






MOV 


(SP)+>Rb 




MOV 


< SP ) +, R4 




MOV 


<SP)+, R3 




MOV 


(SP)4-, R2 




RETURN 





; Say uie are closing the log file 
; Close the log file 



LOGCLS — 
1 



I ai^nuN toUDr OUT. anes 
Close the Ion f :i i e 



3 








4 








5 


004102 


010246 




6 


004104 


032767 


OOOOOOG 


7 


004112 


00145.1 




8 








9 








10 








11 


004114 


016702 


0000000 


12 


004120 


001436 




13 


004122 


032702 


000001 


14 


004126 


001401 




15 


004130 


105022 




16 


004132 


162702 


OOOOOOG 


17 


004136 


001427 




18 


004140 


006202 




19 


004142 






20 


004200 


103006 




21 


004202 






22 








23 








24 








25 


004216 


005067 


OOOOOOG 


26 


004222 


042767 


OOOOOOG 


27 


004230 






28 








29 








31 


004236 


012602 




32 


004240 


000207 
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. SB TTL LOGC LS - C 1 d & f the log file 
LOGCLS is called to close the log file for the current job. 



LOGCLS: MOV 
OOOOOOG BIT 

BEQ 



#LF*OPN, LOGFLG i Is the log file open? 
9* ; Br if not 



1^: 



MOV 


LOGPTR, R2 


BEQ 


2* 


BIT 


#1, R2 


BEQ 


1* 


CLRB 


(R2) + 


SUB 


#LOGBUF, R2 


BEQ 


2* 


ASR 


R2 



Log file is open^ write la&t buffer to file 

i Get buffer pointer 

; Br if file overflow occurred 

; Do u>e need to put in a null at end? 

; Br if not 

i Put null to fill out last word 

i Get # bytes in log buffer 

> Br if buffer is empty 

i Get # uiords in buffer 

.WRITW #XAREA, #LOGCHN, #LOGBUF> R2, LOGBLK ; Write block to log file 

BCC 2* ; Br if write ok 

FERR #LGOVER J Log file over flow 

Close the log file 

2*: CLR LOGPTR .: Say we are no longer logging 

OOOOOOG BIC #LF*DPN, LOGFLG i Say log file is closed 

.CLOSE #LaGCHN ;Close log file channel 

F i n i 5 h e d 



9*: 



MOV 
RETURN 



(SP)+, R2 



I 
I 
I 

< 
i 
I 
I 

€ 

I 

i 

i 

€ 

t 

I 

1 

i 

i 

4 

4 
4 
4 
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1 



3 








4 








5 








6 








7 








8 








9 








10 








11 








12 








13 








14 


004242 


010446 




15 








16 








17 








IS 


004244 


004767 


010502 


19 


004250 


121327 


000075 


20 


004254 


001003 




21 


004256 


005203 




22 


004260 


004767 


010466 


23 








24 








25 








26 


004264 


105067 


173656 


27 


004270 


1 2 1 327 


000055 


28 


004274 


001005 




29 


004276 


10 5267 


173644 


30 


004302 


005203 




31 


004304 


004767 


010442 


32 








33 








34 








35 


004310 


1 1 1 300 




36 


004312 


120027 


000060 


37 


004316 


103432 




38 


004320 


120027 


000071 


39 


004324 


101027 




40 








41 








42 








43 


004326 


005001 




44 


004330 


112300 




45 


004332 


1 20027 


000056 


46 


004336 


001414 




47 


004340 


010004 




48 


004342 


162704 


000060 


49 


004346 


100407 




50 


004350 


020427 


000011 


51 


004354 


003004 




52 








53 








54 








55 


004356 


070127 


000012 


56 


004362 


060401 




57 


004364 


000761 





. SBTTL ACRDEC — At. true a decimal value 

ACRDEC is called to accrue a decimal number. 

Leading spaces and an optional leading equal sign are skipped. 

I n p u t B : 
R3 = Pointer to start of number. 

Outputs: 
RO = Delimiter hit at enti of number. 
Rl = Accrued value. 
R3 ~ Pointer to delimiter at end O'F number. 

ACRDEC: MOV R4, -<SP) 

Skip leading spaces and an optional leading equal sign 

Skip over leading spaces 

Is there an equal sign? 

Br if not 

Skip past the equal sign 

Skip spaces following equal sign 

See if number is preceded by a minus sign 

3*: CLRB NEOFLG i Assume number should not be negated 

Is there a leading minus sign?" 
Br if not 

Remember to negate value 
Skip past minus sign 
Skip over spaces 

Make sure first character of number is a decimal digit 

Get first character of number 
Is 1st character a digit?" 
Br if not 

Br if not 



CALL 


SKPSPC 


CMPB 


(R3),#' = 


BNE 


3* 


INC 


R3 


CALL 


SKPSPC 



CLRB 


NEGFLG 


CMPB 


<R3), #'~ 


BNE 


5* 


INCB 


NEGFLG 


INC 


R3 


CALL 


SKPSPC 



5iS: 



MOVB 


(R3), RO 


CMPB 


RO, #'0 


BLO 


4* 


CMPB 


RO, #'9 


BHI 


4* 



Accrue the number 



?*: 



CLR 


Rl i 


MOVB 


(R3)+, RO ; 


CMPB 


R0,#'. ; 


BEQ 


6* i 


MOV 


RO, R4 


SUB 


#'0, R4 ; 


BMI 


1* i 


CMP 


R4, #9. ; 


BGT 


1* ; 



ACCRUE VALUE IN Rl 
GET NEXT CHARACTER 
Decimal pointer delimiter? 
Br if yes 

CONVERT DIGIT TO BINARY VALUE 
BRANCH IF CHAR NOT A DIGIT 
IS IT A DIGII? 
BRANCH IF NOT 



Multiply previous value by 10 and add new digit. 



MUL 
ADD 
BR 



#10. , Rl 
R4, Rl 
2* 



> MULTIPLY BY 10. 

; ADD IN NEW DIGIT VALUE 



4 

i 



TSKMN3 
ACRDEC 
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— Accrue a decimal value 



58 
59 
60 
61 
62 
63 
64 
65 
66 
67 
68 



004366 
004370 
004374 
004376 
004400 
004402 



005303 
105767 
001401 
005401 
012604 
000207 



173552 



Hit delimiter. 



70 004404 



i POINT TO DELIMITER 

i Should we negate the value 

i Br if not 

; Negate the value 



; Error --• Expected number does not start with a digit 

4$: FABORT #EM$ENM i Expected number is missing 



1*: 


DEC 


R3 


6*: 


TBTB 


NEOFLG 




BEQ 


9* 




NEG 


Ri 


9$: 


MOV 
RETURN 


<SP)+, R4 
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ACROCT — Accrue an oci 
1 


al valv 




X 

2 
3 








H 








5 








6 








7 








8 








9 








10 








11 








12 








13 








14 004414 


010446 






15 








16 








17 








IS 004416 


004767 


010330 




19 004422 


121327 


000075 




20 004426 


001003 






21 004430 


005203 






22 004432 


004767 


010314 




23 








24 








25 








26 004436 


105067 


173504 




27 004442 


121327 


000055 




28 004446 


001005 






29 004450 


105267 


173472 




30 004454 


005203 






31 004456 


004767 


010270 




32 








33 








34 








35 004462 


1 1 1 300 






36 004464 


120027 


000060 




37 004470 


103432 






38 004472 


120027 


000067 




39 004476 


101027 






40 








41 








42 








43 004500 


005001 






44 004502 


112300 






45 004504 


010004 






46 004506 


162704 


000060 




47 004512 


100407 






48 004514 


020427 


000007 




49 004520 


003004 






50 004522 


072127 


000003 




51 004526 


060401 






52 004530 


000764 






53 








54 004532 


020427 


000011 




55 004536 


101407 






56 004540 


005303 






57 004542 


105767 


173400 



*. 4 n r*. m r-. t \ r: i 
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SBTTL ACROCT 



Accrue an octal value 



ACROCT is called to ac!::rue an octal value. 

Leading spaces and an optional leading equal sign are skipped. 

Inputs: 
R3 = Pointer to start of number. 

Outputs: 
RO = Delimiter hit at ^nd of number, 
Rl ~- Accrued value. 
R3 = Pointer to delifTiiter at p^'nd of number. 

ACROCT: MOV R4, -<SP) 

Skip leading spaces and an optional leading equal sign 

Skip over leading spaces 

Is there an equal sign? 

Br if not 

Skip past the equal sign 

Skip spaces following equal sign 



CALL 


SKPSPC 


CMPB 


(R3),#'^-- 


BNE 


3* 


INC 


R3 


CALL 


SKPSPC 



CLRB 


NEGFLC-^ 


CMPB 


<R3). #' 


BNE 


5* 


INCB 


NEGFLG 


INC 


R3 


CALL 


SKPSPC 



See if number is preceded by a minus sign 

3*: CLRB NEGFLQ ; Assume number should not be negated 

; Is there a leading minus sign? 
i Br if not 

i Remember to negate value 
i S k i p past m i } i u 5 sign 
.iSkip over spaces 

i Make sure first character of number is an octal digit 

> 

5*: MOVB (R3),R0 ; Get first character of number 

Is 1st character a digitT' 

Br if not 

i Br if not 



MOVB 


<R3),R0 


CMPB 


RO, #'0 


BLO 


4* 


CMPB 


RO, #'7 


BHI 


4* 



Accrue the number 





CLR 


Rl 


2*: 


MOVB 


(R3)+, RO 




MOV 


RO, R4 




SUB 


#'0, R4 




BMI 


1* 




CMP 


R4, #7 




BGT 


1* 




ASH 


#3, Rl 




ADD 


R4,R1 




BR 


2* 


i HIT 


DELIMITER 


1*: 


CMP 


R4, #9. 




BLOS 


4* 




DEC 


R3 




TSTB 


NEGFLO 



; ACCRUE VALUE IN Rl 
; GET NEXT CHAR 

CONVERT ASCII CHAR TO VALUE 

BRANCH IF NOT DIGIT 

LEGAL OCTAL DIGIT? 

BRANCH IF NOT 

MULTIPLY PREVIOUS VALUE BY 8 

ADD IN NEW DIGIT 



.i Is this a decimal digit? 

i Error — He specified a decimal value 

iMAKE R3 POINT TO DELIMITER 

J Should me nenate the value? 



ACROCT 



K* A y-^ r'> /"*% I » y-i !■ 



- Accrue an octal value 
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58 004546 

59 004550 

60 004552 
6i 004554 
62 

63 
64 
65 004556 



001401 
005401 
012604 
000207 



9*: 



BEQ 


9* 


NEG 


Rl 


MOV 


<SP)+, R4 


KETURN 





i Br if not 

; Negate the value 



; Er-r-or - - Invalid octal y&lui: 

4f: FABORT #EM*IOV ; Invalid octal value 



€ 
I 



I 
4 
€ 

i 
i 
€ 
4 

( 
4 

i 
I 
I 



TSKMN3 - 


— TSKHO 


■\i S u b T- i-i ■ 


; i v) B 5 


ACRSPD - 

1 
2 
3 


-- Accrue a lint? 


speed 








4 








5 








6 








7 








8 








9 








10 








11 








12 








13 








14 








15 








16 


004570 


004767 


1 77446 


17 








IS 








19 








20 


004574 


020127 


000206 


21 


004600 


001006 




22 


004602 


122327 


000056 


23 


004606 


001013 




24 


004610 


122327 


000065 


25 


004614 


001010 




26 








27 








28 








29 


004616 


012705 


000036 


30 


004622 


020165 


000000 


31 


004626 


001407 




32 


004630 


162705 


000002 


33 


004634 


002372 




34 








35 








36 








37 


004636 






38 








39 








40 








41 


004646 


006205 




42 


004650 


012601 




43 


004652 


000207 
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. SBTTL. ACRSPD — Accrue a line speed value 

Accrue a line speed value and return the corresponding speed code. 

Inputs: 
R3 = Pointer to start of speed parameter 

Outputs: 
R3 ••= Pointer to delimiter past end of speed value. 
R5 = Speed code. 

ACRSPD : MOV R 1 . ~ < SP ) 

Accrue decimal speed value 

CALL ACRDEC ; Accrue decimal speed value 

If speed was 134. 5> skip over ".5" 

i Decimal value for speed = 1347' 
; Br if not 
; Sk ip period 

i S k i p 5 



CMP 


Rl, #134. 


BWE 


2* 


CMPB 


(R3)+,#'. 


BME 


8* 


CMPB 


( R3 ) +, # ' 5 


BiME 


8* 



Convert speed to speed code 



2$: 


MOV 


#2#15. ,R5 


3*: 


CMP 


R1>SPDVAL<R5} 




BEG 


4* 




SUB 


#2, R5 




BOE 


3* 



; invalid speed value? 

8*: FAB OR T #EM*ISV 

F i n i E h e d 

4*: ASR R5 

MOV <SP)+, Rl 
RETURN 



.! <r.'et index to highest speed value 

; Search for specified speed 

; Br if found it 

J Try next table entry 

; Loop if more to check 



> Invalid speed value 



Get Ix speed code 



TSKMN3 — TSKHOiM BubrDuti?ie5 
OCTPRT — Print ar\ oclai value 
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3 
4 






5 






6 






7 


004654 


010046 


S 


004656 


010246 


9 


004660 


012700 000030 


10 


004664 


000261 


ii 


004666 


006102 


12 


004670 


106100 


13 


004672 




14 


004676 


012700 000206 


15 


004702 


006302 


16 


004704 


001403 


17 


004706 


106100 


18 


004710 


103774 


19 


004712 


000765 


20 


004714 


012602 


21 


004716 


012600 


22 


004720 


000207 



. SBTTL. OCTPRT — PvsT.t an octal value 

OCTPRT IS A SUBROUTINE WHICH PRINTS OUT AN OCTAL VALUE. 
WHEN CALLED THE VALUE TO BE PRINTED MUST BE IN R2. 
ALL REGISTERS ARE PRESERVED. 



OCTPRT: 


NOV 


RO, -<SP) 




NOV 


R2, -(SP) 




MOV 


#30. RO 




SEC 




1$: 


ROL 


R2 




ROi_B 


RO 




. TTYOUT 






MOV 


#206, RO 


2*: 


ASL 


R2 




13 EQ 


3* 




ROLB 


RO 




BCS 


2* 




BR 


1* 


3*; 


MOV 


(SP)+, Rri 




MOV 


<SP)+, RO 




RETURN 





; SET STOPPER BIT 

; MOVE 1ST BIT TO RO 

PRINT THE ASCII CHAR 
SHIFTED 60 + REPEAT BIT 
SHIFT OFF 1ST BIT 
BRANCH IF FINISHED 
MOVE BIT TO RO 
DO LOOP 2 TIMES 
NOW GO GET 3RD BIT 



I 



I 



T&KMN3 - 


— TSKMUIM Subroi 


tines 


OCTFIX - 

1 
2 
3 


— Print 


octal vfjlue wi 








4 








5 








6 








7 








8 








9 


004722 


010146 




10 


004724 


010346 




11 


004726 


010501 




12 


004730 


020327 


000006 


13 


004734 


002404 




14 


004736 


005000 




15 


004740 


073027 


000001 


16 


004744 


00041.1. 




17 


004746 


012700 


000020 


18 


004752 


160300 




19 


004754 


160300 




20 


004756 


160300 




21 


004760 


072100 




22 


004762 


005000 




23 


004764 


073027 


000003 


24 


004770 


062700 


000060 


25 


004774 






26 


005000 


077310 




27 


005002 


012603 




28 


005004 


012601 




29 


005006 


000207 
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. SBTTL OCTFIX — ~ Fr.i 
Print an octal value with 



.» 


1 n p u 


ts: 




t 


R3 


= Number 


of digits to 


i 


R5 


=^ Value 


to be printed 


OCTFIX: 


MOV 


Rl, -(SP) 






MOV 


R3, -<8P) 






MOV 


R5, Rl 






CMP 


R3.. #6. 






BLT 


3* 






CLR 


RO 






ASHC 


#1>R0 






BR 


2* 


3$: 




MOV 


#16. ,R0 






SUB 


R3, RO 






SUB 


R3, RO 






SUB 


R3, RO 






ASH 


RO, Rl 


1*: 




CLR 


RO 






ASHC 


#3>R0 


2«: 




ADD 

. TTYOUT 


#'0, RO 






SOB 


R3, 1* 






MOV 


<SP)+, R:-f 






MOV 


(SP)+, Rl 






RETURN 





nt octal value with fixed # spaces 
a specified number of digits, 

print (1 - 6) . 



> Oet value to be printed 

.: Are we printing a full 6 digits? 

; Br if not 

i Shift 1st bit into RO 

; Enter conversion loop 

; Determine # bits to shift to left 

.: justify the data value in Rl 



; Left justify data value in Rl 
; Shift an octal digit into RO 

J Convert to ASCII character 

; Print the digit 

; Loop if more digits to print 






TSKMN3 — TSKM0^4 Subroutines MACRO 
ACRTXT — Accrue a character strinq 



1 

2 

3 

4 

5 

6 

7 

S 

9 
10 
11 
12 
13 

14 005010 

15 005012 
16 

17 
18 

19 005014 

20 005020 

21 005024 

22 005026 

23 005030 
24 

25 
26 
27 
28 



005034 
005036 

29 005042 

30 005044 

31 005050 
32 

33 

34 

35 

36 005052 

37 

38 

39 

40 005056 

41 005060 
42 

43 
44 

45 005062 

46 005066 

47 005070 

48 005072 

49 005074 

50 005100 

51 005102 
52 

53 
54 

55 005106 

56 005110 
57 



010146 
010546 



004767 
1 2 1 327 

ooioorj 

005203 
004767 



111305 
120527 
001431 
120527 
001426 



007732 
000075 



007716 



000047 



000042 



012701 0000000 



1 1 2300 
001414 



120027 
001007 
1 1 2300 



000136 



120027 000136 

00 1 4o;? 

042700 177740 



110021 
000762 
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. SBTTL ACRTXT - Accrue a character string 

Accrue a character string specified in the form 
L = ]l5tring or C=-"! ' fitring ' or C-II "string " 

1 n p u t s ; 
R3 - Pointer to start of string 

Outputs: 
Accrued string is stored in asciz form in BLKO. 
RO = Number of characters in string <not counting null at end) 

R 3 ~ F* D i n t s past end of string 



i 
I 



ACRTXT: MOV 
MOV 



R 1 , - ( SP ) 

R5, -<!:aP) 



Stiip up to start of string 



CALL 


SKPSPC 


CMPB 


<R3), #' = 


BNE 


1« 


INC 


R3 


CALL 


SKPSPC 



Skip over any spaces 

Was equal sign specified before string^' 

Br if not 

Skip past equal sign 



MOVB 


<R3), R5 


CMPB 


R5, #47 


BEQ 


6* 


CMPB 


R5, #42 


BEQ 


6* 



Sep ufhat the string delimiter is 

1*: MOVB <R3),R5 i Get string delimiter 

Single quote? 
Br if yes 
Double quote? 
Br if yes 

; String is not quoted. 

i Begin loop to get characters from the string. 

i 

2*: MOV #BLKO, Rl ; Point to buffer where uie store result 

'} 

i Get next char from input string 



4$: 



MOVB 
BEQ 



(R3)+, RO 
3^ 



; Get next char from string 
; Br if reached end of string 



See if this is a control character sequence of the form '^char 

Start of control char sequence? 

Br if not 

Get next char from string 

Br if delimiter missing 

Make "■"-^" = "•'^" 

; Convert char to control character 

Store character into result buffer 



CMPB 


RO, #'•" 


BNE 


3* 


MOVB 


(R3)+, RO 


BEQ 


10* 


CMPB 


RO, ^'■'- 


BEQ 


3* 


BIC 


#'-C<37:>, RO 



3*: 



MOVB 
BR 



RO, (Rl} + 
4* 



; Store char into result buffer 
; Go get next char 



ACRTXT 



! btM'iuiM tjUDroiiT- mes riwttu VUD. U4 rionday ki~Dec-S7 i.1.;4J 

Accrue a character st-T^incj 



58 
59 
60 
61 
62 
63 
64 
65 
66 
67 
68 
69 
70 
71 
72 
73 
74 
75 
76 
77 
78 



005112 005303 

005114 105011 

005116 162701 OOOOOOG 

005122 010100 

005124 000402 



005126 004767 000016 



005132 01260'J 
005134 012601 
005136 000207 



Reeulied end of 5tritK) 



8*: 



DEC 


R3 


CLRB 


<R1) 


SUB 


#BLKO, Rl 


MOV 


Rl. RO 


BR 


9* 



i Accrue a quoted string 

i 

6*: CALL ACRSTR 

; F i n i shed 



9«: 



MOV 
MOV 
RETURN 



(SP)+, R5 
( SP ) +, R 1 



Invalid string 



ir'aqe dd-i 






.: Point back to null at end of input string 
J Store null at end of string 
i Determine length of string 
i Return in RO 



> Accrue quoted string 



005140 



10*: 



FAB OR T #EM$IST 



c 

f 

c 

c 

I i 
I 

I i 
I 

I I 

I 

i 

I 

I 

I* 

4 



TSKMN3 
ACRSTR 



TSKMON S u b r o u tines 
Accrue a quoted charac 
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ter string 



1 
2 
3 
4 
5 
6 
7 
8 
9 
10 
11 

1 '■■J 
J. z:^ 

X w 

14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
30 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 

53 
54 
55 
56 
57 



005150 
005152 



005154 
005160 
005164 
005166 
005170 



005174 
005176 
005202 
005204 
005210 



010146 
010546 



004767 
121327 
001003 
005203 
004767 



112305 
120527 
00 1 403 
120527 
001031 



007572 
000075 



007556 



000047 
000042 



005212 012701 OOOOOOG 



005216 
005220 

005222 
005224 



005226 
005232 
005234 
005236 
005240 
005244 
005246 



005252 
005254 



112300 
001425 
120005 
001414 



120027 
00 1 007 
112300 
001416 
120027 
001402 
042700 



11002.1. 

000760 



000136 

000136 
177740 



SBTTL ACRSTR 



Accrue a quoted character string 



AccT'ue a character string specified in the form 
t ~ .1 'string' or I - 3 " s t t- i n g " 

I n p u t E : 
R3 :- F^ointer to start csf string 

Outputs : 
Accrued string is stored in asciz form in BLKO. 

RO ~- Number of characters in string <not counting null at end) 
R3 = Points past end of string 



ACRSTR; MOV 
MOV 



R 1 , - < BP ) 
R5, -<SP) 



Skip up to start of string 



CALL 


SKPSPC 


CMPB 


(R3).. #'== 


BNE 


1* 


INC 


R3 


CALL 


SKPSPC 



MOVB 


(R3)+, R5 


CMPB 


R5, #47 


BEG 


2* 


CMPB 


R5. #42 


ONE 


10$ 



>SI<ip over any spaces 

; Was equal sign specified before string? 

; Br if not 

/Skip past equal sign 



See what the string delimiter is 

; Get string delimiter 

i Sing 1 e quoted' 

.: Br if yes 

; Doub le quote? 

; Br if invalid delimiter 

; Begin loop to get characters from the string 

> 

2*; MOV #BLK0>R1 ; Point to buffer where we store result 

i 

i Get next char from input s>tring 

4*: MOVB (R3)+, RO j Get next char from string 

Br if missing delimiter 
Is this the end delimiterT' 
Br if yes 

See if this is a control character sequence of the form -^char 

Start of control char sequence? 

Br if not 

Oet next char from string 

Br if delimiter missing 

Make ""•-•" = "'-" 

; Convert char to control character 

Store character into result buffer 



MOVB 


(R3)+, RO 


BEQ 


10* 


CMPB 


RO, R5 


BEQ 


9$ 



CMPB 


RO, #'■■•• 


BNE 


3* 


MtiVB 


(R3)+, RO 


BEQ 


10* 


CMPB 


RO, #'■'- 


BEQ 


3* 


BIC 


# -•c<37:>, RO 



3*: 



MOVB 
BR 



RO, (Rl ) + 
4* 



j Store char into result buffer 
; Oo get next char 



7$." 



TSKMN3 — TSKMON Subroutines MACRO VOl^. 04 
ACRSTR — Accrue a quested character string 



58 
59 
60 
61 
62 
63 
64 
65 
66 
67 
68 
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005256 
005260 
005264 
005266 
005270 
005272 



105011 
162701 
010100 
012605 
012601 
000207 



0000000 



Fin: 


t- h e d 






CLRB 


(Rl) 




SUB 


#BLKO> R 1 




MOV 


Rl, RO 




MOV 


(SP)+, r;^ 




MOV 


<SP)+, Rl 




RETURN 





; Store? null at end of string 
; Determine length of string 

i f?eturn in RO 



70 005274 



10* 



Invalid string 

: FAB CRT #EM*IBT 



GTRD50 



- Accruf? 



t-j Li D T' O !.; t- 1 ft e 5 

a RAD GO value 



n/H;i<u VUD. U4 rionciay 21-Dec"87 .l.i:4J 



'ape .i5 



SBTTL GTRD50 



Accrue a RAD50 value 



4 








5 








6 

7 








a 








9 








10 


005304 


010046 




11 

12 
13 


005306 


010146 




005310 


121327 


000040 


14 


005314 


001002 




15 


005316 


005203 




16 


005320 


000773 




17 


005322 


012746 


022000 


IS 


005326 


005001 




19 


005330 


111300 




20 








21 


005332 


120027 


000052 


22 


005336 


001003 




23 


005340 


012700 


000035 


24 


005344 


000434 




25 








26 


005346 


120027 


000060 


27 


005352 


103406 




28 


005354 


120027 


000071 


29 


005360 


10 100 '3 




30 


005362 


062700 


177756 


31 


005366 


000423 




32 








33 


005370 


005000 




34 


005372 


000422 




35 








36 


005374 


120027 


000141 


37 


005400 


103406 




38 


005402 


1 20027 


000172 


39 


005406 


101370 




40 


005410 


162700 


000040 


41 


005414 


000406 




42 


005416 


120027 


000101 


43 


005422 


10376;? 




44 


005424 


120027 


000132 


45 


005430 


101357 




46 


005432 


062700 


177700 


47 


005436 


005203 




48 








49 


005440 


070127 


000050 


50 


005444 


060001 




51 


005446 


006316 




52 


005450 


103327 




53 


005452 


005716 




54 


005454 


001403 




55 


005456 


010167 


0000000 


56 


005462 


000721 




57 


005464 


010167 


0000020 



GTRD50 IS CALLED TO ACCRUF A RAD50 NAME. 

WHEN CALLED R3 MUST POINT TO THE BEGINNING OF THE NAME 

ANY LEADING SPACES ARE SKIPPED. 

ON RETURN THE ACCRUED K'MUE IS STORED IN R50BUF AND 

R50BUF+2. ALL REGISTERS ARE PRESERVED EXCEPT R3 

WHICH POINTS TO THE END OF THE NAME ON RETURN. 



GTRD50: 



?«: 



1« 
7« 



MOV 

MOV 
SKIP LEADING 

CMPB 

BNE 

INC 

BR 

MOV 

CLR 

MOVB 
i CHECK FOR 

CMPB 

BNE 

MOV 

BR 
i CHICK FOR 
10*: CMPB 

BLO 

CMPB 

BHI 

ADD 

BR 
DELIMITER 



RO, -(SP) 

R 1 , - ( UP ) 

BLANKS. 

(R3), #•' 

1* 

R3 

2* 



■ ( SP > 

Rl 

(R3)> RO 
WILDCARD CHARACTE 

RO, #'■«■ 

10* 

#35, RO 

5* 
DIGIT 

RO, #'0 

3* 

RO, #'9 

4* 

«<36-'0.>, RO 

5* 



; HIT 

3*: CLR RO 

BR 6* 
; CHICK FOR ALPHA CHARACTER 

4*: CMPB R0,#141 

B1..0 12* 

CMPB RO, #172 

BHI 3* 

SUB #40, RO 

BR 13* 

12*: CMPB RO, #'A 

BLO 3* 

CMPB RO, #'Z 

BHI 3* 

ADD #<1-'A>,R0 

INC R3 
.; MULTIPLY PREVIOUS VALUE BY 

6*: MUL #50, Rl 

ADD RO, Rl 

ASL ©SP 

BCC 7* 

TST ©SP 

BEG 9* 

MOV R1,R50BUF 

BR 8* 

9* : MOV R 1 , <R50BUF i-2> 



1 3* : 
5*: 



IS THIS CHAR ABLANK? 
BRANCH IF NOT 
KEEP SKIPPING 

; TELL US WHEN TO STOP 
iFORM VALUE IN Rl 
; GET NEXT CHAR 
ER ('«•') 

; WILDCARD? 
; BR IF NOT 
i RETURN CO.DE FOR * 



;BR IF DELIMITER 

i BR IF NOT DIGIT 

; CONVERT DIGIT TO RAD50 VAL 



i CONVERT TO SPACE 



IS THIS 
BR IF NOT 
LOWER CASE Z 
BR IF MUST BE 
CONVERT LOWER 



LOWER CASE LETTER? 



DELIMITER 
CASE TO UPPER 



CASE 



50 



i BRANCH IF DELIMITER 

BRANCH IF DELIMITER 

CONVERT TO RAD50 VAI 

POINT TO NEXT CHAR 

AND ADD NEW VALUE 

MULTIPLY PREVIOUS VALUE BY 50 

ADD NEW VALUE 

TEST FOR END OF 3 CHARS 

BRANCH IF NOT END OF 3 

FINISHED 6 CHARACTERS? 

BRANCH IF YES 

SAVE 1ST 3 CHARS 

; SAVE 2ND 3 CHARS 






ISKMN3 - 


1 bSM'lUN bUDrO! 


•(; :i n s? s 


GTRD50 - 


— Accrue a RAJil 


'0 value 


58 


005470 


005726 




59 








60 


005472 


1 1 2300 




61 


005474 


004767 


007060 


62 


005500 


103374 




63 


005502 


005303 




64 


005504 


1 260 .1 




65 


005506 


012600 




66 


005510 


000207 
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SKIP 



11*: 



TST <SP)-+- 
ANY CHARACTERS 



IN 



NOVB 


(R3)+, RO 


CALL 


CHKDLM 


BCC 


11* 


DEC 


R3 


MOV 


(SP)+. Rl 


MOV 


(SP>+, RO 


RETURN 





; CLEAN OFF- STACK 
NAME AFTER SIXTH 

i GET NEXT CHAR 

iSEE IF IT IS A DELIMITER 

; LOOP IF NOT 

; POINT TO DELIMITER 



i 

c 



PRTPCT — Print percentoge value 



3 








4 








5 








6 








7 








a 








9 








10 


005512 


010146 




11 


005514 


010446 




12 


005516 


010546 




13 








14 








15 








16 


005520 


012104 




17 


005522 


01210D 




IS 


005524 


012700 


000144 


19 


005530 


004767 


000334 


20 








21 








22 








23 


005534 


004767 


000232 


24 








25 








26 








27 








28 


005540 


004767 


000376 


29 








30 








31 








32 


005544 


012700 


000045 


33 


005550 






34 








35 








36 








37 


005554 


01 260 r) 




38 


005556 


012604 




39 


005560 


012601 




40 


005562 


000207 
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SBTTL PRTPCT ■— Pr-int percentage value 



PRIPCT is called to convert a 32-bit value to a percentage and print the 
resulting value. 

Inputs: 
Rl = Address of 32-bit value to be converted (stored high-order word first) 
DIVSOR = 32-bit divisor to use for computing percentage. 



PRTPCT: MOV 
MOV 
MOV 



R 1 , - < SP ) 
R4, -(SP) 
R5. -iSP) 



Get dividend and multiply by 100. 



MOV 


<R1)+, R4 


MOV 


<R1)+>R5 


MOV 


#100. , RO 


CALL 


MUL32 



i GET HIGH-ORDER VALUE 
i GET LOW-ORDER VALUE 
.: SET MULTIPLIER 
J MULTIPLY BY 100. 



Divide to compute percentage 

CALL DIV32 ; DIVIDE TO COMPUTE PERCENTAGE 

16~-bit quotient is now in R5. 
Print the va'iue. 

CALL PRTDEC 

Print percent sign 

MOV #'%, RO 
. TTYOUT 

Finished 



i PRINT THE VALUE 



GET PERCENT SIGN 
PRINT IT 



MOV 
MOV 
MOV 
RETURN 



(SP)+, Rty 
(SP)+, R4 
(SP)+, Rl 



TSKMN3 — TSKMON Subroutines 
PRTR50 — Print a RAD50 value 



4 






5 






6 






7 






8 


005564 


010146 


9 


005566 


010246 


10 






11 












13 


005570 


012702 000003 


14 


005574 


005046 


15 


005576 


01 000. 1 


16 


005600 


005000 


17 


005602 


071027 000050 


18 


005606 


116146 OOOOOOG 


19 


005612 


010001 


20 


005614 


077207 


21 






22 






23 






24 


005616 


012600 


25 


005620 


001403 


26 


005622 




27 


005626 


000773 


28 






29 






30 






31 


005630 


oi26or; 


32 


005632 


012601 


33 


005634 


000207 
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. SBTTL PRTR50 — Print a RAD50 value 

PRTR50 15 called to print a Rad-50 value. 

I n p u t i3 ; 
RO = Value to be print fd. 



PRTR50: MOV 
MOV 



R 1 , - < SP ) 
R2. -(SP) 



Convert value to ascii string and stack the characters. 



1*: 



MOV 


#3. , R2 


CLR 


~(SP) 


MOV 


RO. Rl 


CLR 


RO 


D.IV 


#50, RO 


MOVE 


R50CHR(R1) 


MOV 


RO, Rl 


SOB 


R2, 1* 



• < SP ) 



; CONVERT 3 CHARS 

; PUT NULL ON STACK TO SIGNAL END 

i GET VALUE TO BE CONVERTED 

; CLEAR HIGH -ORDER VALUE 

; DIVIDE RO-Rl BY 50 

i CONVERT REMAINDER TO ASCII CHARACTER & STACK 

iGET QUOTIENT 

; LOOP IF MORE CHARS TO CONVERT 



Finished conversion. Print the result. 



2*: 



3*: 



MOV 


(SP)+, RO 


BEQ 


3* 


. TTYOUT 




BR 


2* 


F" i vi i s h e d 




MOV 


(SP)+, R2 


MOV 


<SP)+, Rl 


RETURN 





GET CHAR TO PRINT 

BR IF HIT END 

PRINT THE ASCII CHARACTER 

KEEP GOING 



TSKMN3 -- 
PRTFIMM -- 

1 

3 

4 

5 

6 

7 

8 

9 

10 

11 

1 o 

13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 



- TSKMON Subroti tines 
~- Print a -Pi It; name 



005636 
005640 
005642 
005644 
005646 
005650 



005654 
005656 
005662 
005664 
005666 
005672 
005676 
005700 



005702 
005704 
005706 
005712 
005714 
005716 
005720 



005722 
005724 
005726 
005730 

005732 



010146 
010246 
010446 
010546 
010005 
012704 



005046 
012702 
012501 
005000 
07 1 027 
116146 
1 000 I. 
077207 



012600 
00140tj 
120027 
001773 
1 1 0023 
000771 
077423 



01260'..' 
012604 
012602 
012601 
000207 
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SBTTL PRTFNM — Print a file name 



Convert a 1 to 6 character file name that is stored in rad50 form 
into an ascii strin.q and store the string into a specified buffer. 
Trailing spaces are not printed. 

1 11 p u 1 5 : 
RO = Pointer to 2 words containing file name in RAD50 form. 
R3 = Pointer to buffer whore ascii string is to be stored. 



Outputs: 
R3 ~ Pointer "ast end of name in buffer 



PR 



000002 



•NM: 


MOV 


R 1 , - ( SP ) 




MOV 


R2, -<SP) 




MOV 


R4, -<S-P) 




MOV 


R5, -<SP) 




MOV 


RO, R5 




MOV 


#2, R4 



4«: 



OOOOOC 



000050 

ooooooc 



2*: 



000040 



; Oet pointer to file name 
J Convert and print 2 words 

Convert RAD50 name to ascii string and stack the characters 

Put null on stack to mark the end 

Convert 3 characters from this uiord 

Get RAD50 value to be converted 

Clear high-order word for divide 

Divide RO-Rl by 50 

Stack next char of file name 

Get quotient 

Loop if more chars to convert 

Finished converting a ujord. Move characters to buffer. 

; Get next character of name 

i Br if hit end of word 

; Is this character a space?' 

iDon't print spaces 

.i Move character to buffer 

iLoop if 2nd word to convert 



CLR 


-(SP) 




MOV 


#3, R2 




MOV 


<R5)+, Rl 




CLR 


RO 




DIV 


#50, RO 




MOVE 


R50CHR<R.! )> 


- ( SP ) 


MOV 


RO.. Rl 




SOB 


R2, 1* 





3^^: 



MOV 


<SP)+, RO 


BEQ 


5* 


CMPB 


RO, #40 


BEQ 


2* 


MOVE 


RO, (R3) + 


BR 


2* 


SOB 


R4, 4* 


F i VI i B h e d 




MOV 


(SP)+, Rl7 


MOV 


(SP)+, R4 


MOV 


(SP)+, R2 


MOV 


<SP)+, Rl 


RETURN 





TSKMN3 "■ 
DIVIDE - 

1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

1 1? 

13 
14 
15 
16 
17 
IS 
19 
20 
21 



TSKMON Subroutines flACKU 
- Divide 32-b i t q t y by 1 6 ~b i i 
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005734 
005736 
005740 
005744 
005746 
005750 
005752 
005754 
005756 
005760 
005762 
005764 
005766 
005770 



010246 
005000 
0J.270r.' 
00630;.i 
006104 
006100 
020003 
103402 
160300 
005205 
005302 
100367 
012602 
000207 



SBTTL DIVIDE 



Divide 32-bit qty by 16-bit 



SUBROUTINE DIVIDE IS CALLED TO DIVIDE THE 32-BIT QUANTITY 

IN R4 (HIGH ORDER) AND R5 <LOW ORDER) BY THE 16~BIT 

QUANTITY IN R3. ON RETURN THE QUOTIENT IS IN R4-R5 

AND THE REMAINDER IS IN RO. ALL OTHER REGISTERS ARE PRESERVED. 



000037 



DIVIDE: 


MOV 


R2, -<SP) 




CLR 


RO 




MOV 


#31. , R2 ; 


1*: 


ASL 


R5 > 




ROL 


R4 




ROl,- 


RO ; 




CMP 


RO, R3 i 




BLO 


2* i 




SUB 


R3, RO ; 




INC 


R5 i 


2^: 


DEC 


R2 ; 




BPL 


1* ; 




MOV 


<SP)+, R2 




RETURN 





INITIALIZE REMAINDER 

GET SHIFT COUNT 

SHIFT BIT OUT OF LOW ORDER 

SHIFT THROUGH HIGH ORDER 

INTO RO 

GOT ENOUGH TO SUBTRACT YET^ 

BR IF NOT 

SUBTRACT DIVISOR 

INCREASE QUOTIENT 

COUNT # BITS SHIFTED 

BR IF MORE TO DO 



DIV32 



— Divide 32-bii; qty by 32-ijit qty 
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. SBTTL DIV32 



Divide 32-bit qty by 32-bit qty 



3 

4 

5 

6 

7 

S 

9 

10 

11 

12 

13 

14 

15 

16 

17 

IS 

19 

20 

21 

22 

23 

24 

26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 



005772 
005774 
005776 
006000 
006002 
006006 
006012 
006014 
006016 
006022 
006024 
006026 
006032 
006034 
006040 
006042 
006046 
006050 
006052 
006056 
006062 
006064 
006066 



01 0246 
010346 
005002 
005003 
012700 
073427 
006103 
00610;; 
020267 
103412 
101003 
020367 
103406 
166703 
005602 
166702 
00520ri 
077022 
1 0267 
010367 
012603 
012602 
000207 



000040 
000001 



0000000 

000002G 
0000020 
0000000 



OOOOOOG 
000002G 



DIV32 divides one 32~bit value by another 32~bit value producing 
a 32-bit quotient and a 32-bit remainder. 

Inputs : 
R4 -R5 = Dividend <R4 ~ hiph-orderj R5 = low-order) 
DIVSOR = Divisor (Hi yh- -order in 1st word) 

Outputs: 
R4-R5 =---^ Quotient 
REMNDR = 32-bit re.mainc'fr 

DIV32: 

MOV R3, -(SP) 

; IN.rTIAL.IZE REMAINDER <R2-R3) 

GET SHIFT COUNT 
1*: ASHC #1,R4 ; SHIF1 BIT OUT OF DIVIDEND 

AND INTO REMAINDER 

GOT ENOUGH TO SUBTRACT YET? 

BR IF NOT 

BR IF YES 

CHECK LOW-ORDER PART 

BR IF NOT ENOUGH YET 

3$: SUB DIVSOR+2. R3 ; SUBTRACT LOW-ORDER DIVISOR 

PROROGATE BORROW 
SUBTRACT HIGH-ORDER DIVISOR 
INCREASE QUOTIENT 

l^: SOB RO, 1* ; DO FULL DIVIDE 

STORE HIGH-ORDER REMAINDER 
STORE LOW-ORDER REMAINDER 



MOV 


R2, - ( SP ) 


MOV 


R3, -(SP) 


CLR 


R2 


CLR 


R3 


MOV 


#32, , RO 


ASHC 


#1, R4 


ROL 


R3 


ROL 


R2 


CMP 


R2, DIVSOR 


BLO 


2* 


BHI 


3* 


CMP 


R3, DIVSOR +2 


BLO 


2* 


SUB 


DIVSOR+2. R3 


SBC 


R2 


SUB 


DIVSOR. R2 


INC 


R5 


SOB 


RO, 1* 


MOV 


R2, REMNDR 


MOV 


R3> REMNDR+2 


MOV 


(SP)+, R3 


MOV 


( SP ) +, R2 


RETURN 





€ 
€ 

i 
i 
< 
i 



TBKMN3 •■ 


-- TSKMG 


N S u b r ( 1 1 :i I'l e s 


MUL32 - 

1 

2 
3 


-- Multi 


p 1 u 32 -b ;! t qty 






4 






5 






6 






7 






8 






9 






10 






11 






12 






13 






14 


006070 


010046 


15 


006072 


010246 


16 


006074 


010346 


17 


006076 


010402 


IS 


006100 


010503 


19 


006102 


005004 


20 


006104 


OOSOOtJ 


21 


006106 


000241 


22 


006110 


006000 


23 


006112 


103003 


24 


006114 


06030r> 


25 


006116 


005504 


26 


006120 


060204 


27 


006122 


073227 000001 


28 


006126 


00 5700 


29 


006130 


00 1 366 


30 


006132 


012603 


31 


006134 


012602 


32 


006136 


01260<i 


33 


006140 


000207 



MACRO V05. 04 
by 16 -bit qty 
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SBTTL MUL32 



Multiply 32-bit qty by 1 6-bit qty 



MUL32 is called to multiply a 32-bit value by a 16-bit value producing 
a 32~-bit product. 

I n p u t Si : 
R4-f?5 = 32~bit value to be multiplied <R4-h igh-order, R5=lo»ii-order ) 
RO =^ 16~bit multiplier 

Outputs; 
R4-R5 = 32-bit product. 

R (. - 3. ti n •J'^ la c /a T-- w o A 



MUL32: 



1*: 



MOV 


RO, 


- i SP ) 


MOV 


R2, 


- ( SP ) 


MOV 


R3, 


~ ( SP ) 


MOV 


R4, 


R2 


MOV 


R5, 


R3 


CLR 


R4 




CLR 


R5 




CLC 






ROR 


RO 




BCC 


2* 




ADD 


R3, 


R5 


ADC 


R4 




ADD 


R2, 


R4 


ASHC 


#1, 


R2 


TST 


RO 




BNE 


1* 




MOV 


<SP)+, R3 


MOV 


<SP)+, R2 


MOV 


<SP)+, RO 


RETURN 







;COPY VALUE TO BE MULTIPLIED 
; FORM PRODUCT IN R4-R5 



SHOULD WE ADD IN THIS TIME? 

BR IF NOT 

ADD LOW-ORDER PART 

PROROGATE CARRY 

ADD HIGH-ORDER PART 

SHIFT MULT I PL I CAN VALUE 

MORE TO MULTIPLY? 

LOOP IF YES 



PRTDEC -- Print a decimal value 
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SBTTL PRTDEC — Print a decimal value 



3 
4 
5 
6 

"7 
f 

S 
9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 



006142 
006144 
006146 
006150 
006152 
006154 
006160 
006162 
006166 
006172 
006174 
006176 

006200 
006204 
006206 
006210 
006212 
006214 
006216 



010046 
010246 
010346 
010446 
010546 
1 2702 
005004 
071427 
062705 
110542 
010405 
00 1 370 



012605 
012604 
012603 
012602 
012600 
000207 



PRTDEC IS CALLED TO PRINT THE 
ALL REGISTERS ARE PRESERVED. 



DECIMAL VALUE IN R5. 



0000000 

000012 
000060 



PRTDEC: MOV 


RO, "(SP) 


MOV 


R2, -(SP) 


MOV 


R3, -(SP) 


MOV 


R4, -(SP) 


MOV 


R5, ~(SP) 


MOV 


#PBUFND, R2 


1-$: CLR 


R4 


DIV 


#10. , R4 


ADD 


#'0,R5 


MOVB 


R5, ~(R2) 


MOV 


R4, R5 


BNE 


1* 


i VALUE IS CONVERTED, PRIWi 


. PRINT 


R2 


MOV 


(SP)+, R5 


MOV 


(SP)+, R4 


MOV 


(SP)+, R3 


MOV 


(SP)+, R2 


MOV 


( SP ) +, RO 


RETURN 





POINT TO END OF PRINT BUFFER 

CLEAR HIGH-ORDER FOR DIVIDE 

DIVIDE R4 -R5 BY 10. 

CONVERT REMAINDER TO ASCII DIGIT 

STORE THE CHARACTER 

ANYTHING LEFT TO CONVERT 

BR IF YES 



n, 



I !b(M*1lM J — I isKfiuN s u c- r o it r i n e s 
PRTLN — Print a job number 
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. SBTTL PRTLN 



Print a job number 



3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 



006220 
006222 
006224 
006226 
006232 
006236 
006240 
006242 



010346 
010546 
00620!) 
012703 
004767 
01260:.} 
0.1 260,' i 
000207 



Print a job number. 

A job index number is divided by 2 to produce a job number and that 

job number is printed in a field with 2 positions. 



Inputs: 



RiJ 
PRTLN: 



Job index number of job whose number is to be printed. 



000002 
000006 



MOV 

MOV 

ASR 

MOV 

CALL 

MOV 

MOV 

RETURN 



R3> -(HP) 
R5, -<SP) 
R5 

#2, R3 
PRTFIX 
(SP)+, R5 
(SP)+, R3 



; Convert job index # to job # 
jPrint value in 2 character field 
i Print it 



TSKMN3 ■" 
PRTFIX - 

.1 
2 
r? 

4 
5 
6 
7 
S 
9 
10 
U 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 

WW 

34 
35 



■" TSKMON Sub rout ines MACRO V05. 04 
- Print value ii.":i th fixed /•ielcf width 
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006246 

006252 
006254 
006256 
006262 
006264 
006270 
006274 
006276 
006300 
006302 
006304 
006306 
006310 
006314 
006316 
006322 
006324 
006326 
006330 
006332 
006334 



01 
1 
01 
01 
01 
00 
07 
06 
:i 1 



0246 
0346 
0446 
0546 
2702 
5004 
1 427 
2705 
054P 



005303 
010405 
00 1 367 
005703 
003403 
1 1 2742 
077303 

012605 
012604 
012603 
012602 
012600 
000207 



. SDTTL PRTFIX — Pt-int value mith fixed field width 

PRTFIX is called to print a decimal value using a specified number 

of columns. 

Leading spaces are inserted if necessary to pad the value to the specified 

size. 

I n p u t B : 
R3 = Number of columns to print. 
R5 = Value to print. 



0000000 

000012 
000060 



000040 











MOV 


R2, -<SP) 




MOV 


R3, -<r-<p) 




MOV 


R4, -<SP) 




MOV 


R5, -<SP> 




MOV 


ttPBUFND, R2 


1*: 


Cl.R 


R4 




DIV 


#10. ,R4 




ADD 


#'0, R5 




MOVB 


R5.. "■(R2) 




DEC 


R3 




MOV 


R4, R5 




BME 


1* 




TST 


R3 




BLE 


2« 


3$: 


MOVB 


#' ,-<R2.> 




SOB 


R3, 3* 



2*: . PRINT R2 

MOV <SP)+, H5 

MOV (SP)+, R4 

MOV (SP)+, R3 

MOV <SP)+. R2 

MOV (SP)+, RO 
RETURN 



POINT TO END OF CONVERSION BUFFER 

CLEAR HIGH-ORDER FOR DIVIDE 

DIVIDE R4-R5 BY 10. 

CONVERT REMAINDER TO ASCII DIOIT 

MOVE TO PRINT BUFFER 

COUNT DOWN # OF COLUMNS USED 

GET REMAINING QUOTIENT 

BR IF MORE TO CONVERT 

DO WE NEED TO PUT IN PADDING SPACES? 

BR IF NOT 

INSERT LEADING SPACES 

.; PRINT THE FINAL RESULT 



TSKMN3 
PRTDC2 



— TBkMON Bubrou 

— Print dec ima'i 



tines 
value w 
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i t h 2 d i q i t- s 



4 








5 








6 








7 


006336 


020527 


000011 


8 


006342 


101006 




9 


006344 


010046 




10 


006346 






11 


006356 


012600 




12 


006360 


004767 


177556 


13 


006364 


000207 




14 








15 








16 








17 








IS 








19 








20 








21 








22 








23 








24 


006366 


020527 


000143 


25 


006372 


101004 




26 


006374 






27 


006404 


020527 


000011 


28 


006410 


1 1 004 




29 


006412 






30 


006422 


004767 


177514 


31 


006426 


000207 




32 








33 








34 








35 








36 








37 








38 








39 








40 


006430 


010346 




41 


006432 


00 1 40t> 




42 


006434 






43 


006444 


077305 




44 


006446 


012603 




45 


006450 


000207 





. SBTTL PRTDC2 



Prnit decimal value with 2 diqits 



PRTDC2 PRINTS A DECIMAL VALUE CONTAINED IN R5 LIKE PRTDEC. 
HOWEVER. PRTDC2 ALWAYS PRINTS AT LEAST TWO DIGITS IN THE 
NUMBER. ALL REGISTERS ARE PRESERVED. 



PRTDC2: CMP 
BHI 



i<fe- 



R5, #9, 

1* 

MOV RO>-<SP) 
. TTYOUT #'0 
MOV <SP)+, RO 
GALL PRTDEC 
RETURN 

. SBTTL PRTDC3 ■- 



J DOES VALUE USE 1 OR MORE DIGITS? 
;BR IF USES MORE THAN 1 DIGIT 

; PRINT LEADING ZERO 

: HOW PRT.NT VALUE 

Print decimal value with 3 digits 



PRTDC3 printii a decimal value and uses at lease 3 columns to 
display the value. Leading spaces are printed if necessa-ry to 
fill out the three columns. 



Inputs: 
R5 == Value to be printfuL 



PRTDC3: CMP 
BHI 



1*: 



2*: 



R5, #99. 

1* 

. TTYOUT #40 
CMP R5, #9. 
BHI 2* 
. TTYOUT #40 
CALL PRTDEC 
RETURN 



/Will value print with 3 digits? 

; Br if ye s 

.1 Print a blank if not 

iWill value print with 2 digits? 

; Br if yes 

,i Print second blank if not 

.i Print actual value 



.SBTTL PRTSPC -~ Print specified number of spaces 

Print the specified number of spaces. 

Inputs; 
R3 = Number of spacer, to print 



PRTSPC: MOV R3, -(SP) 

BEG 9* 
1«: . TTYOUT #40 

SOB R3, 1* 
9*: MOV (SP)+, R3 

RETURN 



iPrint a space 

> Loop if more to print 



TSKMN3 
PRTTTP 
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1 
2 
3 
4 
5 
6 
7 
8 
9 
10 
11 



006452 
006454 
006456 



1 r> nnAAAD 

006470 
006472 
006476 
006502 
006506 
006510 
006514 
006516 
006524 



006526 
006532 



13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 

27 006536 

28 006540 

29 006542 
30 

31 
32 
33 

34 006544 

35 006546 

36 006550 

37 006552 

38 006554 

39 006556 

40 006560 

41 006562 

42 006564 

43 006566 
44 

45 
46 
47 

48 006570 

49 006572 

50 006574 

51 006576 

52 006600 

53 006602 

54 006604 

55 006606 

56 006610 

57 006612 



010246 
010446 
016104 
032761 

ooioo;;' 

016104 
012702 
020462 
001407 
162702 
002372 

000404 
016202 



012604 
012602 
000207 



0000000 
000000ft 
0000000 
0000000 
0000000 
0000000 
0000000 
0000000 
0000000 
0000000 



006625 

006636 

006660 

006671 ■ 

006702 

006713 

006724 

00673D 

006647 

006647 



. SBTTL PRTTTP 



F*rint terminal type name 



PRTTfP prints the terminal type being used by a specified line. 
The terminal type namp that is printed is 9 characters long. 

I n p I) t G : 
Rl - Line index numbf-r. 



0000000 
0000000 

0000000 
000022 
006544 ' 

000002 



006570' 



0000000 



PRTTTP: MOV 
MOV 
MOV 
BIT 
BhiE 
MOV 
1*: MOV 
2«; CMP 
BEG 
SUB 
BGE 



R2, -<SP) 

R4, -<BP) 

LTRMTP<Ri>» R4 

#^u I jM I Ti LSW < R 1 ) 

1^ 

ITRMTP<R1 >> R4 

#NTRMTP.. R2 

R4, TTFTBL<R2> 

3* 

#2, R2 

2* 



4$: 
3*: 



.PRINT #TTNXXX 



BR 

MOV 

. PR. TNT 



F i n i & h e d 



9$: 



MOV 
MOV 
RETURN 



9« 

TTNTBL(R2)> R2 
R2 



(SP)+, R4 
(SP)+, R2 



Oet terminal type flags 

Has line initializion been done yet? 

Br if yes 

Oet sysgen terminal type code 

Get # terminal types 

Is this the terminal type? 

Br if yes 

More to check? 

Br if yes 

Unknown terminal type 

; Get pointer to terminal name string 
i Print terminal name 



Terminal type flag tablt* 



TTF-TBL: 


. WORD 


VT52 




. WORD 


VTIOO 




. WORD 


HAZEL 




. WORD 


ADM3A 




. WORD 


LA36 




. WORD 


LA 120 




. WORD 


DIABLO 




. WORD 


QUME 




. WORD 


VT2007 




. WORD 


VT200B 


NTRMTP 


ns: 


<:. ~TTFTBL>-2 


i Terminal typ 


e name pointe 


TTNTBL: 


. WORD 


TTNV52 




. WORD 


TTNVIO 




. WORD 


TTNHZL 




. WORD 


TTNADM 




. WORD 


TTNL36 




. WORD 


TTNL12 




. WORD 


TTNDIA 




. WORD 


TTN3UM 




. WORD 


TTNV20 




. WORD 


TTNV20 



control 
control 



codes 
codes 



VT52 

VTIOO 

HAZELTINE 

ADM3A 

LA 36 

LA 120 

DIABLO 

QUME 

VT200 — 7 bit 

VT200 — 8 bit 

Highest terminal type index 



VT52 

VTIOO 

HAZELTINE 

ADM3A 

LA36 

LA 120 

DIABLO 

QUME 

VT200 

VT200 



I 
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PRTTTP — Print tt? rmiruj 1 type name 



58 
59 
60 
6.1 

62 006614 

63 006625 

64 006636 

65 006647 

66 006660 

67 006671 

68 006702 

69 006713 

70 006724 

71 006735 
72 

73 
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16:.> 
126 
126 
126 
110 
101 
114 
114 
104 
121 



156 
124 
124 
124 
141 
104 
101 
101 
151 
165 





.: Ten 


Tiinal name strinqo 






^ 


. ML I ST 


BEX 




153 


TTNXXX 


. ASCII 


/unknown 


/<200:i 


065 


TTNV52 


. ASCII 


/VT52 


/<200> 


061 


TTNVIO 


. ASCII 


/VTIOO 


/<200> 


062 


TTNV20 


. ASC 1 1 


/VT200 


/<200> 


172 


TTNH2L 


. ASC 1 1 


/Hazeltne/<200> 


115 


TTNADM 


. ASC I I 


/ADM3A 


/<200.> 


063 


TTNL36 


. ASC 1 1 


/LA36 


/<P00> 


061 


TTNL12 


. ASC!! 


./'LA 120 


/<200> 


141 


TTNDIA 


. ASCII 


/Diablo 


/<200> 


155 


TTNQUH 


. ASCII 
. EVEN 
. LIST 


/Qume 
BEX 


/<200> 



I 
I 



{ 



i 
i 
f 
t 



( 



M .\ /-^ 1-^ !■•> I !r\ tr A^ 



EDTFIL -•" Edit file sjmm 



fifiv-nu vu,j. uH- Donoay c.'1-i.'ec-b/ li :4J fsge 4/ 



i 
4 



SBTTL EDTFIL. — Ftlit file spec 



3 






4 

5 






6 






7 






& 






9 






10 






11 






12 






13 






14 006746 


010446 




15 






16 






1 7 






IS 006750 


012400 




19 006752 


00 1 404 




20 006754 


004767 


000046 


21 006760 


1 1 2723 


000072 


22 






23 






24 






25 006764 


012400 




26 006766 


001414 




27 006770 


004767 


000032 


28 006774 


012400 




29 006776 


00140;? 




30 007000 


004767 


000022 


31 






32 






33 






34 007004 


012400 




35 007006 


00 1 404 




36 007010 


1 1 2723 


000056 


37 007014 


004767 


000006 


38 






39 






40 






41 007020 


105013 




42 007022 


012604 




43 007024 


000207 





EDihIL is called to convert a file specification stored in RAD50 
form into an asciz string of the form dev: name, ext 

I n p u t K : 
R3 = Pointer to start of area where result is to be stored. 
R4 ~ Pointer to 4-ujorfi block with file spec in RAD50 form. 



Outputs; 
Asciz file spec is in result buffer. 
R3 ~ Points to null at f-nd of strincj. 

EDTF I i : MOV R 4 , - < SP ) 

Edit device name 



MOV 


(R4.)+, RO 


BEG 


1* 


CALL 


EDTR50 


MOVE 


#': , (R3) + 



Oet file name 



1$: 



MOV 


(R4)+,R0 


BEQ 


3* 


CALL 


EDTR50 


MOV 


(R4)+, RO 


BEQ 


2* 


CALL 


EDTR50 



Put in extension 



?*: 



3^: 



MOV 


<R4)+, RO 


BEQ 


3* 


MOVE 


#'. . (R3)^ 


CALL 


EDTR50 


Finished 




CLRB 


(R3) 


MOV 


(SP)+, R4 


RETURN 





GET DEVICE NAME 

BR IF NO DEVICE SPECIFIED 

EDIT INTO BUFFER 

TERMINATE DEV NAME WITH COLON 



GET 1ST 3 CHARS OF FILE NAME 

BR IF NO FILE NAME 

EDIT IN 1ST 3 CHARS 

GET 2ND 3 CHARS 

BR IF ALL BLANK 

EDIT INTO BUFFER 



GET EXTENSION 

BR IF NO EXTENSION 

PUT PERIOD AT END OF FILE NAME 

EDIT IN EXTENSION 



PUT IN NULL AT END OF STRING 



TSKMN3 
EDTR50 



TSKMON Subrou 
Convert RAD SO 
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val ue to ascAi 



SB TIL EDTR50 



Convert RAD50 value to ascii 



3 








4 








5 








6 








7 








8 








9 








10 








11 








1 o 








13 








14 


007026 


010146 




15 


007030 


010246 




16 








17 








18 








19 


007032 


020027 


ooooooe 


20 


007036 


001003 




21 


007040 


1 1 2723 


000052 


22 


007044 


000420 




23 








24 








25 








26 


007046 


005046 




27 


007050 


012702 


000003 


28 


007054 


010001 




29 


007056 


005000 




30 


007060 


07 1 027 


000050 


31 


007064 


005701 




32 


007066 


001402 




33 


007070 


116146 


0000000 


34 


007074 


010001 




35 


007076 


077211 




36 








37 








38 








39 


007100 


1 1 2623 




40 


007102 


001376 




41 


007104 


00 5303 




42 








43 








44 








45 


007106 


012602 




46 


007110 


01260.1 




47 


007112 


00020'/ 





ED'IRSO is called to convrrt a RAD50 value to an ascii 
character string and store the string into a specified buffer. 

Inputs: 
RO = RAD50 value to convert 
R3 = Pointer to buffer where result is to be stored. 



Outputs: 
Ascii string is stored into result buffer. 



R3 ~ Pointer "sst end of Ist^t character stored into buffer. 



EDTR50: MOV 
MOV 



R 1 , - < SP ) 
R2, -iSP) 



Wi IdcardT' 
Br if not 
Store wildcard character 



Convert value to ascii characters and stack the characters 



CMP 


RO, #WLDNAM 


BNE 


5« 


MOVB 


#'#, <R3) + 


BR 


9* 



i«: 



1-*: 



4$: 



CLR 


-(SP) 


MOV 


#3. R2 


MOV 


RO, R 1 


CLR 


RO 


.DIV 


#50, RO 


TST 


Rl 


BEO 


4* 


MOVB 


R50CHR(R1), -<SP) 


MOV 


RO, Rl 


SOB 


R2, 1* 



PUT NULL ON STACK TO SIGNAL END OF CHARS 

GET # OF CHARS TO CONVERT 

GET VALUE TO CONVERT 

CLEAR HIGH-ORDER FOR DIVIDE 

DIVIDE RO-Rl BY 50 

IS THE CHARACTER A SPACE? 

BR IF YES 

STACK THE CHARACTER 

GET QUOTIENT 

LOOP IF MORE TO CONVERT 



Novo characters from the stack to the result buffer 



;f: 



MOVB 

BNE 

DEC 

F i n i s li e d 



9^: 



MOV 
MOV 
RETURN 



<SP)+, <R3)' 

2* 

R3 



<SP)+, R2 
( SP ) +, R 1 



MOVE CHAR TO RESULT 
LOOP IF MORE TO MOVE 
POINT PAST LAST CHAR 



I 



( 
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1 



4 
5 
6^ 
7 
B 
9 
10 
U 
J. t.^ 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 



007114 010446 
007116 010r746 



007 1 20 
007126 



007130 
007134 



007136 
007140 
007144 
007150 
007154 
007160 
007162 
007170 
007172 



007174 
007200 
007202 
007210 
007214 
007220 
007224 
007230 



007234 
007236 
007240 



032761 

00 1 44r' 



105767 

00 1 1 / 



010105 
012704 
070527 
062705 
121527 
001405 

077404 
000420 



016105 
001415 

004767 
1 1 2700 

016105 

004767 



012605 
012604 
00020/ 



. SBTTL PRTUNM 



Frjnt user name or PPN 



PFM'UNM 15 called to print the name of the user < or the PPN 

if no user name is present) for the user of a time-sharing line. 



I n p u t Si : 
Hi. = Line index n umb «:■ r 



PRTUNH: MOV 
NOV 



OOOOOOG 0000000 



171013 



000014 
000006 
OOOOOOG 
000040 



0000000 



1 76726 
000054 

OOOOOOG 
1 76706 



R4, -(SP) 
R5, -(BP> 



X f line is n ^ t "^ o '^ ^' e d on 



there is nothing to print 



B:i:T #«KINIT, I..Sy<Rl ) jHas line been initialized? 
BEQ 10* i Br if not 



Did user request PPN di bpltiy?" 



TSTB 
BME 



SJSPPN 
15* 



See if user name is known 



16*: 



MOV 


Rl, R5 


MOV 


#12. . R4 


MUL.. 


#6, R5 


ADD 


#LUNAME, R5 


CMPB 


(R5).. #' 


Bf£Q 


15* 


. TTYOUT 


(R5) + 


SOB 


R4, 16* 


BR 


10* 



; SHOW JOBS/PPN? 
; BRANCH IF SO 



J GET JOB # 

J EACH JOB HAS A 12. CHAR USER NAME 

i GET POINTER TO USER NAME FOR THIS JOB 

; IS USER NAME BLANK7' 

i BR IF YES — PRINT PPN INSTEAD 

i PRINT USER NAME 



Don't knou) user name, print PPN 



15*: MOV LPR0J(Ri),R5 

BEQ 10* 

. PRINT #PPNMSG 

9*: CALL PRTDEC 

MOVB #',.R0 
. TTYOUT 

MOV LPR0G<R1>,R5 

CALL PRTDEC 



; GET PROJECT # 

; BR IF NOT LOGGED ON 

i PRINT PROviECT NUMBER 



i PRINT PROGRAMMER NUMBER 



i 
< 

i 
1 

€ 

i 



f ' i n i s h e d 



10*: 



MOV 
hiOV 
RETURN 



<SP)+, H5 
(SP)+, R4 



PRTTIM — Print job stat .i Bti c s 
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H 






5 






6 






7 007242 


01 004 A 




8 007244 


010346 




9 007246 


010446 




10 007250 


010546 




11 






12 






13 






14 007252 






15 007260 


0.1 670;i 


0000000 


16 007264 


166105 


OOOOOOG 


17 007270 


005205 




IS 007272 


005004 




19 007274 


012703 


000074 


20 007300 


004767 


1 76430 


21 007304 


004767 


177026 


22 007310 


010005 




23 007312 






24 007322 


004767 


177010 


25 007326 






26 






27 






28 






29 007334 






30 007342 


016104 


0000000 


31 007346 


016105 


0000000 


32 007352 


004767 


000020 


33 007356 






34 007364 


012605 




35 007366 


012604 




36 007370 


012603 




37 007372 


012600 




38 007374 


000207 





. SBTTL PRTTIM — Prjj.t job statistics 

PRTTIM IS CALLE.D TO PRINT THE JOB ACCOUNTING STATISTICS FOR 
IHfc. JOB WHOSE LINE INDEX NUMBER IS IN Rl. 
ALL REGISTERS ARE PRESERVED. 



PRTTIM: 



MOV 
MOV 
MOV 
MOV 



RO, -<yp> 

R3, -(SP) 
R4, -(SP) 
R5, -dip) 



PRINT CONNECT TIME 



1«: 



. PRINT 


#CTMSO 


MOV 


MINTIM. R5 


SUB 


LC0NTM<R1),R 


INC 


R5 


CLR 


R4 


MOV 


#60. , R3 


CALL 


DIVIDE 


CALL 


PRTDC2 


MOV 


RO, R5 


. fTYDUT 


#': 


CALL 


PRTDC2 


. PRINT 


#C0L00 



PRINT CPU TIME 



. PRINT 


#CPUMSG 


MOV 


LCPUHI(R1>>R4 


MOV 


LCPUL0<R1),R5 


CALL 


PRTTMV 


. PRINT 


#CRLF 


MOV 


<SP)+, R5 


MOV 


<SP)+, R4 


MOV 


(SP)+, R3 


MOV 


< SP ) +, RO 


RETURN 





; PRINT CONNECT TIME HEADER 
i GET CURRENT MINUTE TIMER VALUE 
: CALCULATE CONNECT TIME FOR LINE 
: CHARGE A MINIMUM OF 1 MINUTE 

CLEAR HIGH-ORDER FOR DIVIDE 

SE-j JO DIVIDE BY 60. 

DIVIDE BY 60 

PRINT # HOURS CONNECTED 

GET # MINUTES CONNECTED 

PRINT COLON AFTER HOURS 

PRINT # MINUTES CONNECTED 

PRINT ':00' SECONDS 



PRINT CPU HEADER MESSAGE 

GET HIGH ORDER CPU TIME (CLOCK TICKS) 

GET LOW ORDER CPU TIME (CLOCK TICKS) 

PRINT TIME VALUE 

END PRINT LINE 



\ 



TSKIiN3 — 
PRTTHV -• 

1 



T SK i'iON S u b T- D 1 1 1 1 II e s 
P r i n fc a t ,i m f > v a 1 u e 



3 

4 

T-i 

6 

7 

8 

9 
10 
11 
12 
13 

14 007376 

15 007400 

16 007402 
17 

IS 
19 

20 007404 

21 007410 

22 007412 

23 007416 
24 

26 



010346 

010446 
010546 



066705 
005504 
016703 
004767 



29 
30 
31 
32 

34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 

50 
51 
52 
53 
54 
55 
56 
57 



007422 
007426 



012703 
004767 
010046 



007440 
007444 
007446 
007456 
007462 
007472 
007474 



007500 
007502 



007506 
007512 



004767 
010005 



0126013 

00 4767 



01 160n 
016604 



01 o703 
004767 



0000000 

OOOOOOG 
176312 



000074 
176302 



007434 004767 176274 



1 76672 



004767 176654 



1 76636 



000002 



OOOOOOQ 
1 7'62 1 6 
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. SBTTL PRTTMV — Fi-jnt a time value 

PRTTMV is called to display a time value in the format HH: MM: SS 

I n p u t E : 
R4 ~ High-order time value <ciock tick units) 
\\ 5 ~ t. . o tji- o r d e r time v a 3 u r 

OutputE;: 
Time value is printed without a trailing CR/LF. 
CPl>AL = Low-order CPU time in 0. 1 second units. 

CPUAH " Hi nh-n-rrfo-r C.VW -himp in O 1 second units. 



PRTTMV: MOV 

MOV 
MOV 



R3, -<SP) 
R4, -(SP) 
R5, -(SP) 



Convert time to seconds and fractions thereof 



ADD 


TK5VAL, 


R5 


ADC 


R4 




MOV 


TKISEC, 


R3 


CALL 


DIVIDE 





J Round to nearest second 

iPropogate round carry 

; Get # clock ticks per second 

J Convert to seconds and fractions 



We now have # seconds in R4~R5. 
Convert to minutes and i:-c.'tond5. 



MOV 


#60, . R3 


CALL 


DIVIDE 


MOV 


RO, -<SP) 



> 60 seconds per minute 

i SPLIT INTO MINUTES AND SECONDS 

■> SAVE # SECONDS 



Split time into hours anc! minutes 

CALL DIVIDE .; SPLIT INTO # HOURS AND MINUTES 

Print the complete time value 



CALL PRTDC2 
MOV RO, R5 
. TTYOUT # ' : 
CALL PRTDC2 
. TTYOUT # ' : 
MOV (SP)+, R5 
CALL PRTDC? 



; PRINT # HOURS 
i GET # MINUTES 

; PRINT # MINUTES 

; GET # SECONDS 
; PRINT # SECONDS 



Woiij convert original cl<!ck-tick time into tenths of seconds 



MOV 
iiOV 



(SP). R5 
2 ( SP ) , R4 



(Recover original lotu-order value 
; Recover original high-order value 



Convert time value to seconds and fractions thereof 



MOV 
CALL 



TKISEC. H3 
DIVIDE 



; Get # clock ticks per second 

i Convert to seconds and fractions thereof 



Nnuj R4-F\'5 have # of seconds of time. 

RO has remainder in unitfi of 1/50, 1/60, or 1/64 second units. 



TSKMN3 - 


— TSKMON Subroi 


i- 1 n e s 


PRTTMV - 


-■- Prinb 


a time 


value 


58 








59 








60 


007516 


01004/.^ 




61 


007520 


012700 


000012 


62 


007524 


004767 


176340 


63 


007530 


010467 


0000000 


64 


007534 


010567 


0000000 


65 








66 








67 








68 


007540 


01260;'> 




69 


007542 


005004 




70 


007544 


07 1 467 


0000000 


71 


007550 


060467 


OOOOOOG 


72 


007554 


005567 


OOOOOOG 


73 








74 








75 








76 


007560 


012605 




77 


007562 


012604 




78 


007564 


01260::.i 




79 


007566 


000207 
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Convert whole seconds value to 1/10 second units. 



MOV 


RO. "(SP) 


MOV 


#10. > RO 


CALL 


MUL32 


MOV 


R4, CPUAH 


MOV 


R5, CPUAL 



.: Save fractional remainder 

.; Multiply whole seconds value by 10. 

; Oet approximate # 1/10 

j Save high-order part 

i Save low-order part 



Now convert fractional reminder into 1/10 second units 



; Get fractional remainder 

.; Clear high-order for divide 

/Convert remainder to i/10 sec units 

iAdd to low-order part 

; Propogate carry to high-order part 



MOV 


<SP)+,R5 


CLR 


R4 


DIV 


TK1VAL>R 


ADD 


R4, CPUAL 


ADC 


CPUAH 


Finished 




MOV 


(SP)+, R5 


MOV 


<SP)+, R4 


MOV 


(SP)+, R3 


RETURN 








iBKriNa - 

PRTTMD ■ 
1 



- iSKhUN buiDroutinss 
Print a time value 



riACNU vot:>. 
uith days 



3 








4 








5 








6 








7 








8 








9 


007570 


010346 




10 


007572 


010446 




11 


007574 


010546 




19. 


007576 


062705 


00OOO5 


13 


007602 


005504 




14 


007604 


012703 


000012 


15 


007610 


004767 


176120 


16 


007614 


012703 


000074 


17 


007620 


004767 


176110 


18 


007624 


010046 




19 


007626 


004767 


176102 


20 


007632 


020527 


000030 


21 


007636 


103415 




22 


007640 


07 1 427 


000030 


23 


007644 


010546 




24 


007646 


010405 




25 


007650 


004767 


176266 


26 


007654 


010046 




27 


007656 






28 


007666 


012600 




29 


007670 


012605 




30 


007672 


004767 


176440 


31 


007676 


01 000 




32 


007700 






33 


007710 


004767 


176422 


34 


007714 






35 


007724 


012605 




36 
37 
38 


007726 


004767 


176404 








39 








40 


007732 


012605 




41 


007734 


012604 




42 


007736 


012603 




43 


007740 


000207 
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. SBTTL PRTTMD — Print a time value with days 

PRrrMD is called to display a time value in the format DD HH: MM: SS 

I n p u t B : 
R4 = High-order time value (0. 1 second units) 
R5 = Louj-order time value 



PRTTMD: MOV 


R3, -<SP) 


MOV 


R4, -<SP) 


MOV 


R5, -(SP) 


ADD 


#5. .. R5 


ADC 


R4 


MOV 


#10. ,R3 


CALL 


DIVIDE 


MOV 


#60. , R3 


CALL 


DIVIDE 


MOV 


RO, -(SP) 


CALL 


DIVIDE 


CMP 


R5, #24. 


BLO 


1* 


DIV 


#24. , R4 


MOV 


R5i -(SP) 


MOV 


R4.. R5 


CALL 


PRTDEC 


MOV 


RO, - ( SP ) 


. TTYOUT 


#40 


MOV 


(SP)+,RO 


MOV 


(SP)+> R5 


1$: CALL 


PRTDC2 


MOV 


RO. R5 


. TTYOUT 


#': 


CALL 


PRTDC2 


. TTYOUT 


#': 


MOV 


(SP)+, R5 


CALL 


PRTDC2 


; F" i n i & h e d 




MOV 


<SP)+, R5 


MOV 


(SP)+, R4 


MOV 


(SP)+, R3 


RETURN 





: ROUND TO NEAREST SECOND 

;GET DIVISOR 

; SPLIT INTO SECONDS AND TENTHS 

SPLIT INTO MINUTES AND SECONDS 

SAVE # SECONDS 

SPLIT INTO # HOURS AND MINUTES 

MORE THAN 1 DAY? 

BR IF NOT 

GET DAYS AND HOURS WITHIN A DAY 

SAVE HOURS (REMAINDER) 

GET NUMBER OF DAYS 

PRINT NUMBER OF DAYS 

SAVE MINUTES 

PRINT A SPACE FOLLOWING THE DAY VALUE 

RECOVER MINUTES 

GET NUMBER OF HOURS WITHIN THE DAY 

PRINT # HOURS 

GET # MINUTES 

i PRINT # MINUTES 

; GET # SECONDS 
; PRINT # SECONDS 
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. SBTTL PRTDAT — • Print the current date 

PRTDAT IS CALLED TO PRINT THE CURRENT DATE. 
ALL REGISTERS ARE PRESERVED. 



6 


007742 


010046 




7 


007744 


010246 




a 


007746 


010546 




9 


007750 






10 


007756 


1 0046 




11 


007760 


006300 




12 


QQJ762 


012702 


000005 


13 


007766 


005005 




14 


007770 


006100 




15 


007772 


006105 




16 


007774 


077203 




17 


007776 


005305 




IS 


010000 


010546 




19 








20 


1 0002 


01 2702 


000005 


21 


010006 


00 5005 




22 


010010 


006100 




23 


010012 


006105 




24 


010014 


077203 




25 


010016 


004767 


176120 


26 
'■■)■■/ 


1 0022 






28 


010032 


011605 




29 


010034 


006305 




30 


010036 


062o05 




31 


010040 


062705 


0000000 


32 


010044 






33 


010052 






34 


010060 






35 


010066 






36 








37 


010076 


012605 




38 


010100 


042705 


1 77740 


39 


010104 


062705 


O'OOllO 


40 


010110 


004767 


176222 


41 


010114 


012605 




42 


010116 


012602 




43 


010120 


1 2600 




44 


010122 


000207 





PR" 



1*: 



DAT: MOV 


RO, -<SP) 


MOV 


R2, -if^^rn 


MOV 


R5, -(SP) 


. DATE 




MOV 


RO, -<SP) 


ASL. 


RO 


MOV 


#5, R2 


CLR 


R5 


ROL 


RO 


ROL 


R5 


SOB 


R2, 1* 


DEC 


R5 


MOV 


R5, ~<5P) 


PRIM! DAY NUMBER 


MOV 


#5, R2 


CLR 


R5 


ROL 


RO 


ROi.. 


R5 


SOB 


R2, 2* 


CALL 


PRTDEC 


J J YOU T 


#'- 


PR:iNT MONTH 1 


viAME 


MOV 


<SP>,R5 


ASL 


R5 


ADD 


<SP)+, R5 


ADD 


#MONTAO.. R5 


TTYOUT 


<R5> + 


. TTYOUT 


<R5) + 


. TTYOUT 


<R5) 


. TTYOUT 


#'■- 


PRINT YEAR 




MOV 


<SP>-+-, R5 


13 1 C 


#<-C37>, R5 


ADD 


#72. , R5 


CALL 


PRTDC2 


MOV 


(SP)+, R5 


MOV 


<SP)+, R2 


MOV 


<SP)+, RO 


RETURN 





OET CURRENT DATE 

SAVE DATE 

LEFT JUSTIFY VALUE 

SHIFT OFF 5 BITS 

INTO R5 

SHIFT MONTH VALUE INTO R5 

LOOP IF MORE BITS TO SHIFT 
OET MONTH VALUE IN RANGE 0-11 
SAVE MONTH VALUE 

;GET 5 BITS OF DAY VALUE 

i SHIFT BITS INTO R5 



i PRINT DAY~OF-MONTH 
i PUT IN SEPARATOR 

GET MONTH INDEX 

ti-2 

^^3 

POINT INTO ASCII MONTH TABLE 

PRINT NAME OF MONTH 



; PUT IN SEPARATOR 

GET BACK ORIGINAL DATE VALUE 
CLEAR ALL BUT YEAR FIELD 
YEAR # IS RELATIVE TO 1972 
PRINT YEAR VALUE 



( 

c 
i 
i 
i 

i 

i 
i 
I 
c 

i 
i 
i 
i 
i 
i 
i 
i 



rSKMN3 - 


■ — T' 3 K M hi S u fa T- oir 


" 3. n e s 


-■"RTTOD • 

i 


-■- Pr.inh 


the tidff 


^ of da y 


n 

4 
5 








6 


010124 


010046 




7 


010126 


010346 




S 


0101 30 


010446 




9 


010132 


010546 




10 


010134 






11 


010154 


016704 


OOOOOOG 


19 


0101 60 


016705 


0000000 


13 


010164 


016703 


OOOOOOG 


14 


010170 


004767 


175540 


15 


010174 


012703 


000074 


16 


010200 


004767 


175530 


17 


010204 


010046 




18 


010206 


004767 


175522 


19 


010212 


004767 


176120 


20 


010216 


010005 




21 


010220 






22 


010230 


004767 


176102 


23 


010234 






24 


010244 


012605 




25 


010246 


004767 


176064 


26 


010252 


012605 




27 


010254 


012604 




28 


010256 


012603 




29 


1 0260 


012600 




30 


010262 


000207 




31 








32 








33 








34 








35 








36 








37 








38 


010264 


010046 




39 


010266 






40 


1 0274 


005700 




41 


010276 


00141;' 




42 


1 0300 


004767 


177436 


43 


010304 






44 


010312 


004767 


177606 


45 


010316 






46 


010324 


012600 




47 


010326 


000207 
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SBTTL. PRTTOD 



Print the time of dan 



PRTTOD IS CALL 
ALL REtSISTERS 



PRTTOD: 



iiOV 

MCiV 

MOV 

MOV 

. GT.IM 

MOV 

MOV 

MOV 

CALL 

MOV 

CALL 

MOV 

CALL 

CALL 

MOV 

. TTYOUT 

CALL 

. TTYOUT 

MOV 

CALL 

MOV 

MOV 

MOV 

MOV 

RETURN 



ED TO PRINT T!lt: 
ARE PREBERVLD. 

RO. -<SP) 

R3, -(3P) 

R4, ~<SP) 

R5, -<SP) 

#XAREA, #CPUAH 

CPUAH, R4 

CPUAL/ R5 

TKISEC, R3 

DIVIDE 

#60. , R3 

DIVIDE 

RO, -<SP) 

DIVIDE 

PRTDC2 

RO, R5 

#': 

PRTDC2 

#': 

(SP)+, R5 

PRTDC2 

(5P)+, R5 

(SP)+, R4 

(SP)+, R3 

\'SP)+, RO 



TIME OF DAY. 



GET # CLOCK TICKS SINCE 00:00 

GET HIGH-ORDER VALUE 

GET LOW-ORDER VALUE 

Get # clock ticks per second 

Get # seconds past midnight 



DIVIDE BY 



TO SPLIT INTO SEC & MIN 



SAVE # SECONDS INTO MINUTE 
GET # MINUTES & # HOURS 
PRINT HOUR VALUE 
GET # MINUTE VALUE 
PUT IN COLON SEPARATOR 
PRINT # MINUTES 
ANOTHER COLON 
GET # SECONDS 
PRINT # SECONDS 



SBTTL DATIM 



Print date and time 



DATTIM IS CALLED TO PRINT THE CURRENT DATE AND TIME. 

IF NO DATE HAS BEEN ENTERED DATTIM RETURNS WITHOUT DOING 

ANYIHING. ALL REGISTERS ARE PRESERVED. 



DATTIM: 


MOV 
. DATE 


RO, "(OP) 




TS7 


RO 




BEQ 


1* 




CALL 


PRTDAT 




. PRINT 


#SPACE2 




CALL 


PRTTOD 




. PRINT 


#CRLF 


X^p: 


i'iOV 
RETURN 


<SP)+, RO 



GET CURRENT DATE 

WAS DATE ENTERED BY OPERATOR? 

BR IF NOT 

PRINT CURRENT DATE 

PRINT 2 SPACES 

PRINT TIME OF DAY 

PRINT CR-LF 



i 



SEAFKH — 

:l 
2 
3 



i bf^riUw b c D i" o u i; 1 n e s 
Sear-ch k euu.i(.t ■(•(.) liist 
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5 






6 






7 






a 






9 






10 






1,1 






12 






13 






14 






15 






16 






17 






18 






19 010330 


010046 




20 010332 


010146 




21 010334 


010246 




22 010336 


010546 




23 






24 






25 






26 010340 


1 1 2300 




27 010342 


120027 


000040 


28 010346 


00 1 774 




29 010350 


120027 


000011 


30 010354 


00177.1 




31 010356 


120027 


000014 


32 010362 


001766 




33 010364 


005303 




34 






35 






36 






37 






38 010366 


012705 


0000000 


39 010372 


1 1 2300 




40 010374 


120027 


000141 


41 010400 


103401' 




42 010402 


120027 


000172 


43 010406 


101035 




44 010410 


162700 


000040 


45 010414 


120027 


000132 


46 010420 


101020 




47 010422 


120027 


000101 


43 010426 


103020 




49 010430 


120027 


000071 


50 






51 






52 






53 






54 010434 


101404 




53 010436 


120027 


000072 


56 0104 42 


Oc)14i;2 




57 01044-<'i 


000416 





. BBTTL SEARCH 



Bearth keuword list 



SEARCH is called to compare? a command or option 
keyword with a table of 7iafii£E. 

I n f n t B : 
R3 ~ Pointer to start of the command keyword. 

R4 = Points to the start of the command name table which is 
built by use of the- TBLDEF, CMDDEF, and TBLEND macros. 

Outputs: 
R'3 = Points to 1st non-blank rharscter after kenword. 
C -f lag reset ==> Command successfully identified. 

R4 = Pointer to 2nd word of command table entry. 
C-flag set ==> Command not successfully identified. 

H4"0 ==> Commend not recognized. 

R4-non~zero --=.> Commfnid is ambigious. 



?JEARCH: 



MOV 
MOV 
MOV 
MOV 



RO, -<SP> 
R 1 , -• < SP ) 
R2, -<SP.) 
R5> -(SP) 



Skip leading spaces. tabt>, and form-feeds. 

14*: MOVB <R3)+, RO ; Get next character 

Is this a space? 
Skip leading spaces 
Skip leading tabs 

iSkip leading form-feeds 

; Point to first non-blank character 

Move keyword to a holdinci buffer and convert lower-case letters 
to upper case 



MOVB 


<R3)+, RO 


CMPB 


RO, #' 


BEQ 


14* 


CMPB 


RO, #TAB 


BEG 


14$ 


CMPB 


RO, #FF 


BEii 


14f 


DEC 


R3 



15*: 



16*: 



MOV 


#KEYBUF.. R5 


MOVB 


<R3)+, RO 


CMPB 


RO, #141 


ISLO 


16* 


CMPB 


RO, #172 


BH-T 


17* 


SUB 


#40, RO 


CMPB 


RO, #'Z 


BHI 


23* 


CMPB 


RO, #'A 


BHIS 


18* 


CMPB 


RO, #'9 



; Point to keyword holding buffer 

i Get next character from command string 

i Is this a lower-case letter? 

iBr if not 



Convert lowei — case to upper-case 
Is this character a letter? 
Br if not 



iBr if it is a letter 
j Is character a digit? 
NEXT 5 LINES REPLACE 2 FOLLOWING TO REJECT COMMAND . SY: FILNAM 
AND LOOK FOR COMMAND FILE INSTEAD OF DOING SYSTAT COMMAND 
«•* BHI 17* ; Br if delimiter 

h-* CMPB RO, #'0 

BLOS 24* .; BRANCH IF MAYBE ; ** 

CMPB RO, #': ; CHAR RANGE : TO @, IS IT ; ? i ** 

BEO IS* i INCLUDE IF SO ; «# 

BR 17* iELSE DELIMITER ; «# 



laKMNJ - 


-- i SKHUN Siub rot 


tines i-frtCKU 


SEARCH ■ 


-- Searc 


h keyuioi 


d list 


58 


010446 


120027 


000060 


59 


010452 


103006 




60 


010454 


120027 


000044 


61 


1 0460 


001403 




62 


1 0462 


120027 


000137 


63 


1 0466 


OOIOOL' 




64 


010470 


020527 


1777770 


65 


010474 


1 03336 




66 


010476 


110025 




67 


010500 


000734 




68 








69 








70 








71 


010502 


105015 




72 








73 








74 








75 


010504 


005303 




76 


010506 


122327 


000040 


77 


010512 


001775 




78 


010514 


005303 




79 


010516 


010346 




SO 


010520 


105767 


0000000 


31 


010524 


001433 




82 








83 








84 








85 








86 


010526 


012402 




87 


010530 


01240!"; 




88 


010532 


001433 




89 


010534 


012703 


ooooooe 


90 


010540 


005001 




91 








92 








93 








94 








95 


010542 


1 1 2300 




96 


010544 


001414 




97 


010546 


105715 




93 


010550 


001410 




99 


010552 


121527 


000052 


100 


010556 


001003 




101 


010560 


005201 




102 


010562 


005205 




103 


010564 


000770 




104 


010566 


122500 




105 


010570 


001764 




106 








107 








108 








109 








no 


010572 


060204 




ill 

1 1 '* 


010574 


000755 




i. JL r-' 

IL'3 








114 
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24*: 

23*: 
18*: 



CMPB 


RO, #'0 


B 1-1 IS 


18* 


CMPB 


RO; #'* 


BEQ 


IS* 


CMPB 


RO, #' 


BWE 


17* 


CMP 


R5, #KEYEND-i 


BHIS 


15* 


MOVE 


RO, (R5) + 


BH 


15* 



j See if in range 0-9 

.: Br if- digit 

.; Allow "*" in command names 



; »» 



iAlso allow underscore 

; Br if character is a delimiter 

; Have we reached end of keyuiord buffer? 

i Br if yes 

i Move character to buffer 



Reached end of ke'iuinrri 
17*: CLRB (R5) 



; Put null at end of keyword name 



DEC 


R3 


CMPB 


<R3)+, #' 


BEQ 


22* 


DEC 


R3 


MOV 


R3, -<SP> 


TSTB 


KEYBUF 


BEQ 


21* 



MOV 


(R4)+, R2 


MOV 


(R4)+, R5 


BEQ 


20* 


MOV 


#KEYBUF, R3 


CLR 


Rl 



Skip up to start of n(?xt field after keyword 

j Point to delimiter 

;Skip spaces following keyword 

; Point to Ist non-blank character 

J Save delimiter pointer on stack for later 

;Did we have a null keyword? 

i Br i f y e s 

The keyword has been converted to upper-case and is stored in KEYBUF. 
We are now ready to bepin comparing the keyword. 

; Get # of bytes per table entry 
>*: MOV (R4)+, R5 i Point to asciz name string 

; Br if end of table hit 
j Point to our keyword 
; Say no star seen yet 

Begin to compare command string pointed to by R3 with 
keyword in table entry pointed to by R5 

>*: MOVE (R3)+, RO jGet a char from the keyword 

Br if hit end of keyword 
2*: TSTB <R5) iHit end of name in table? 

Br if yes — no match 

Is next char a star? 

Br if not 

Remember star seen 

Point beyond star 

Continue comparison 
19*: CMPB (R5)+, RO ; Do names match 

Yes -- keep checking 

Names do not match 

Compare keyword with next entry in table 



MOVE 


(R3)+, RO 


BEQ 


1* 


TSTB 


<R5) 


BEQ 


4* 


CMPB 


(R5), #'•«• 


BWE 


19* 


IWC 


Rl 


INC 


R5 


BR 


2* 


CMPB 


(R5)+, RO 


BEG 


6* 



€ 

i 



4*: 



ADD 
BR 



R2, R4 

5* 



; Point to next table entry 
j G o check it 



Reached end of keyword. All chars match so far. 

If we BTB also at end of name in table or if we have seen a star* 



TSKMN3 


— TSKMON Subro 


SEARCH - 


Searc 


h keywn 


115 






116 






117 






lis 






119 






120 


010576 


105715 


121 


010600 


001413 


122 


010602 


121527 


123 


010606 


001410 


124 


010610 


005701 


125 


010612 


001006 


126 






127 






128 






129 


010614 


010504 


130 


010616 


000261 


131 


010620 


000404 


132 






133 






1 34 






135 


010622 


005004 


136 


010624 


000261 


137 


010626 


000401 


ISd 






139 






140 






141 


010630 


000241 


142 






143 






144 






145 


010632 


012603 


146 


010634 


012605 


147 


010636 


012602 


148 


010640 


012601 


149 


010642 


012600 


150 


010644 


000207 



list 
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then we have a match. Othermise we may have an ambigious keyword 
or tue may have to continue searching. 

This algorithm depends on shortest legitimate match occurring first 
in table. Otherwise, will get spurious ambiguities. 



00005c 



1*: 



TSTB 


(R5) 


BEQ 


7* 


CMPB 


(R5). #'-Jt 


BEQ 


7% 


TST 


Rl 


BNE 


7* 



> We have an ambiguous keyword 



21*: 



MOV 
SEC 
BR 



R5, R4 

10* 

I Cannot find keyword in tab le 

20*: CLR R4 
SEC 
BR 10* 

> We found keyword in tab .1 e 

7*: CLC 



F i n i B h e d 



10*: 



MOV 
MOV 
MOV 
MOV 
MOV 
RETURN 



(SP)+, R3 
(SP)+, R5 
<SP)+, R2 
( SP ) +, R 1 
(SP)+. RO 



; Are we at the end of the table entry also? 

i yes> we have an exact match 

i Is next table char "*"? 

, If yes> then this is acceptable abbrev 

i Have we already seen "*"? 

ilf yes then we have an acceptable abbrev 



Make R4 non-zero to signal ambigious case 

Signal failure on return 

Finished 



; Signal unrecognizable command 
; Signal failure on return 



; Signal success on return 



Recover command string pointer 



i 
c 
i 
i 
i 
i 
i 
i 
i 
i 

€ 

€ 
€ 

C 
i 

* 
i 
i 
i 



FPRINT 



3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 



Print fatal 



error messape 



riona. 



cil-uec-'d/ 1 J : 4 J 



Page Dfe) 



10646 
10654 
10660 
10664 



1 0666 
10674 
10700 
10706 



23 
24 

26 
27 
28 

29 

30 

31 

32 
33 
34 
35 
36 
37 
38 
39 
40 

41 

42 

43 

44 

45 

46 

47 
4S 

49 

50 

51 



10710 
10714 
10720 
10724 



10730 
10732 
10740 
10744 
10752 
10754 
10760 
10766 
1 0770 
10774 
10776 



004767 
000207 



000207 



004767 

012706 
004767 
000167 



010146 
1 52767 
116701 
122767 
103410 
004767 
032761 
001402 
004767 
012601 
000207 



. SBTTL FPRINT — Print fatal error message 

FPRINT IS CALLED TO PRINT A FATAL ERROR MESSAGE FROM 
WUHIN TSKMON. USE THE FERRDR MACRO TO INVOKE FPRINT. 



000044 



FPRINT: . PRINT #KMFTXT 

. PRINT R5 

CALL KMNERR 
RETURN 



PRINT ERROR MESSAGE HEADER 

NOW PRINT ERROR MESSAGE 

SEE IF WE SHOULD ABORT COMMAND FILES 



OOOOOOG OOOOOOG 



1 77732 
OOOOOOG 
000004 
OOOOOOG 



OOOOOOG OOOOOOG 
OOOOOOG 
OOOOOOG OOOOOOG 

172312 

OOOOOOG OOOOOOG 

172412 



. SBTTL PRTWRN — Print warning message 
PRTWRN is called to print a KMON warning message. 

I n p 1.1 1 s : 
Rb ~ Pointer to asciz test string. 

PRTWRN:, .PRINT #WRNHED jPrint warning heading 

.PRINT R5 j Print warning message 

BISB #SC*WRN, INDERR ; Set warning severity for IND 

RETURN 

. SBTTL FKILL — f^rint error message and abort 

FKILL IS JUMPED TO TO PRINT A FATAL ERROR MESSAGE, 
RESET THE STACK AND JUMP TO RDCMD. 
USE THE FABORT MACRO TO CAl L FKILL. 

PRINT FATAL ERROR MESSAGE 

CLEAN OFF STACK 

SEE IF WE SHOULD ABORT COMMAND FILES 

READ NEXT COMMAND 

.SBTTL KMNERR — Abort command files on KMON error 

KMNERR is called when a command error is detected by TSKMON. 

If error abort severity is set to abort on errors or warningB> 

all currently open command files are aborted. Otherwise execution 

continues 



SET ERROR SEVERITY FOR IND 

GET CURRENT JOB INDEX NUMBER 

ABORT ON ERRORS? 

BR IF NOT 

ABORT ALL OPEN COMMAND FILES 

SHOULD WE ABORT IND FILES ON ERRORS? 

BR IF NOT 

Abort execution of IND & nested command files 



FKILL: 


CALL 


FPRINT 




MOV 


#KMSTK. SP 




CALL 


KMNERR 




JMP 


RDCMD 



KMNERR : 


MOV 


Rl, -(SP) 




BISB 


#SC*SEV, INDERR 




MOVB 


CORUSR.Rl 




CMPB 


#SC*SEV, ERRSEV 




BLO 


1* 




CALL 


ABRTCF 




BIT 


#«INDAB,LSW7<R1) 




BEO 


i* 




CALL 


INDABT 


1^: 


MOV 
RETURN 


<SP)+, Rl 



if 



TBKriN3 — TSKMuN Su&r duT- ines 
ACRFN -- Accrue a f i 3 f name 
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1 
z> 

13 
4 
5 
6 
7 
S 
9 
10 
11 
12 
13 
14 
15 
16 
17 
IS 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 



BBTTL ACRFN 



Act: rut? a file name 



01 
01 
01 



1000 
1 004 
1010 



01 

01 

01 
01 
01 
01 
01 
01 

01 
01 
01 
01 
01 
01 

01 
01 
01 
01 
01 
01 
01 



01 
01 
01 



1020 
1024 

1026 
1034 
1036 
1040 
1044 
1046 

1050 
1056 
1060 
1066 
1074 
1076 

1104 
1110 
1112 
1U4 
1120 
1126 
1130 



1132 
1 1 46 
1150 



012567 
011567 
005067 



011014 004767 



121327 
001011 

016767 
005203 
1 1 1 300 
004767 
103363 
000431 

016767 
00 142 'J 
016767 
026727 
001003 
012767 

121327 
00 1 006 
005203 
004767 
016767 
000241 
000207 



000261 
000207 



ACI^FN IS CALLED TO ACCRUE A FILE NAME IN THE STANDARD 
FORM "DV: NAME. EXT". 

WHEN CALLED, R3 MUST POINT TO THE START OF THE NAME 
AND R5 MUST POINT TO A 2 WORD BLOCK IN RAD50 FORM 
CONTAINING THE DEFAULT DEVICE NAME AND DEFAULT EXTENSION. 
ON RETURN, THE FILE SPEC IS IN RAD50 FORM IN THE 4 WORD 
BLOCK "FILNAM" AND R3 POINTS PAST THE END OF THE NAME. 
R3 AND R5 ARE ALTERED, ALL OTHER REGISTERS ARE PRESERVED. 
If an error occurs while accruing the file name, the 



OOOOOOG 
0000060 
000010(3 

174264 

000072 

OOOOOOG OOOOOOG 

003514 



ACRFN: MOV 

MOV 

CLR 
; ACCRUE NEXT 
2*: CALL 
; SEE IF THIS 

CMPB 

BNE 
i WE HAVE JUST 

MOV 

INC 

MOVB 

CALL 

BCC 

BR 
> WE JUST GOT 



<R5)+, FILNAM 

(R5), FILNAM+6 

FILNAM+S. 
FIELD OF NAMF 

GTRD50 
IS THE DEVICE OR 

(R3), #': 

1* 

ACCRUED THE DEVICE NAME 



SET DEFAULT DEVICE 
SET DEFAULT EXTENSION 
NO FILE SIZE 

; ACCRUE NAME IN RAD50 FORMAT 

FILE NAME 

i WAS THAT THE DEVICE NAME 

i BR IF NOT. MUST BE FILE NAME 



NAME 
COLON 



OOOOOOG 000002G 1*: 



0000020 
000002G 

132500 

000056 



174164 
OOOOOOG 



000004 G 
132500 

000004G 



SEE 



5*: 



000006G 



4$: 



MOV 
BEO 
MOV 
CMP 
BNE 
MOV 
IF AN 
CMPB 
BNE 
INC 
CALL 
MOV 
CLC 
RETURN 



SET DEVICE 

POINT PAST 

GET 1ST CHAR OF FILE NAME 

SEE IF IT IS A DELIMITER 

BR IF NOT DELIMITER 

INVALID FILE NAME 

STORE THE FILE NAME 
MUST NOT BE NULL 



R50BUF, FILNAM 
R3 

(R3), RO 
CHKDLM 
2* 
3* 
THE FILE NAMF 
R50BUF, FILNAM*-; 
3* 

R50BUF+2, Fli. NAM-t-4 
FILNAM+2, #132500; WAS 1ST PART OF NAME "«"? 



5* i BR IF NOT 

#132500, FILNAM+4i IF YES THEN 
EXTENSION WAS ^SPECIFIED 



(R3), #'. 

4* 

R3 

GTRD50 

R50BUF, FILNAM+6 



MAKE 2ND PART BE "*" TOO 



PRESENT' 



IS EXTENSION 

BR IF NOT 

SKIP OVER PERIOD 

ACCRUE THE EXTENSION 

STORE THE EXTENSION 

SIGNAL SUCCESS ON RETURN 



i ERROR --■ INVALID FILE WAMf- 
3^: FERR #BDFNAM 

SEC 

RETURN 



; SIGNAL ERROR ON RETURN 
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1 



3 








4 








5 








6 








? 








S 








9 








10 








11 








12 








13 








14 








15 








16 








17 


on 152 


010146 




18 


1 1 1 54 


010246 




19 


011156 


010446 




20 


011160 


010546 




21 








22 








23 








24 


011162 


122327 


000040 


25 


011166 


001775 




26 


0111 70 


005303 




27 








28 








29 








30 


011172 


012702 


OOOOOOG 


31 


011176 


1 1 2300 




32 


011200 


00 1416 




33 


011202 


120027 


000057 


34 


OH 206 


001413 




35 


011210 


120027 


000054 


36 


011214 


001410 




37 


011216 


120027 


000040 


38 


011222 


001405 




39 


011224 


120027 


000075 


40 


011230 


00 1 402 




41 


011232 


1 1 0022 




42 


011234 


000760 




43 








44 








45 








46 


011236 


005705 




47 


011240 


001407 




48 


011242 


1 i 2722 


000075 


49 


011246 


162704 


000002 


50 


011252 


012705 


OOOOOOG 


51 


011256 


000402 




52 


1 1 260 


012705 


0000360 


53 


011264 


10 50 12 




54 


011266 


005303 




55 








56 








57 









. SBTTL ACRFIL — Acci'ue full file specification 

ACRML is called to accrue a full file specification of the form 
d e V : file, e x 1 1 s i x e ii 

I n p u t B : 
R3 = F^ointer to file name which can be terminated by a null* 

comma, blank* or equal sign. 
R4 - Pointer to word containing default file extension. 
R5 = 0==>lnput file. l~~>Output file. 

M t f) U t E '. 

R3 ~ Pointer to delimiter at end of file spec. 

FILNAM = 5 word block containing file spec in RAD50 form. 

C-'flag set on return if invalid file spec. 



ACRFIL: MOV 
MOV 
MOV 
MOV 



R 1 , - ( SP ) 
R2. -<SP) 
R4, -(SP.^ 
R5, -<SP) 



Skip over leading spaces in front of the file spec 
6$: CMPB <R3)+, #' ^ SKIP LEADING SPACES 

i POINT TO 1ST NON-BLANK CHAR 
Move file spec to a holding buffer 



CMPB 

BEQ 

DEC 



<R3)+, #' 
6* 

R3 



1*: 



MOV 


#BLK0. R2 


MOVE 


<R3)+,R0 


BEQ 


2* 


CMPB 


R0,#'/ 


BEQ 


2* 


CMPB 


R0,#', 


BEQ 


2* 


CMPB 


RO. #' 


BEQ 


2* 


CMPB 


R0> #'== 


BEQ 


2* 


MOVE 


RO, (R2) + 


BR 


1* 



POINT TO HOLDING BUFFER 
GET NEXT CHAR FROM FILE NAME 
BR IF HIT END 
TERMINATE ON SLASH 

i TERMINATE ON COMMA 

; TERMINATE ON BLANK 

i TERMINATE ON EQUAL SIGN 

i MOVE CHAR TO HOLDING BUFFER 
•> GO GET NEXT CHAR 



Set up the file-spec as an input or output file. 



!$: 



4*: 
5*: 



rsr 


R5 




BEQ 


4* 




MOVB 


#' = , <R2)-+- 




SUB 


#2, R4 




MOV 


#KCSIBF, R5 




BR 


5* 




MOV 


#KCSIBF+30. 


, R5 : 


CLRB 


<R2) 




DEC 


R3 





INPUT OR OUTPUT TYPE FILE?-- 

BR IF INPUT FILE 

MAKE SPEC LOOK LIKE OUTPUT FILE 

CORRECT DEFAULT EXTENSION POINTER FOR OUTPUT 

CSISPC WILL PUT RESULT HERE 

CSISPC WILL PUT RESULT HERE 

PUT IN ASCIZ NULL AT END OF NAME 

POINT BACK TO DELIMITER 



Ust- .CSISPC to parse the file spec 





TSKMNS - 


I ir>.t'!UN ti U D T- D it •(: 1 Tl e S 




ACRFIL - 


-— ■ Accrue full f-ile spec 












53 


011270 


010601 




59 


011272 






60 


1 1 306 


010106 




61 


011310 


10341O 




62 








63 
64 








65 


011312 


012700 OOOOOOG 




66 


011316 


012520 




67 


011320 


012520 




68 


011322 


012520 




69 


011324 


012520 




70 


011326 


011510 




71 








72 
73 








74 


011330 


000241 




75 


011332 


012605 




76 


011334 


012604 




77 


011336 


012602 




78 


011340 


01260.1 




79 


011342 


000207 











































































































v^ 



n d a y 21 


-Dec -87 


MOV 


SP, Rl 


. CSISPC 


#KCSIBF 


MOV 


Rl, SP 


BCS 


9* 
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i SAVE SP ACROSS . CSISPC 
«BLKO ; PARSE THE FILE SPEC 

; RESTORE SP (IGNORE SWITCH 
J 13R IF INVALID 



INFO FROM . CSISPC) 



Move file spec to result area 



MOV 


#FILNAM, RO 


MOV 


(R5)+, (RO) ! 


MOV 


(R5)+, (RO)-! 


MOV 


(R5)+, <R0) 1 


MOV 


<R5)+, (RO)-* 


MOV 


(R5), (RO) 



; POINT TO RESULT AREA 



9*: 



F i n i B h e d 

CLC 
MOV 
MOV 
MOV 
MOV 



; SIGNAL SUCCESS ON RETURN 



(SP)+, R5 
(SP)+, R4 
( SP ) +, R2 
(SP)+, Rl 



i 



RETURN 



i 
i 
i 

4 
I 



DMTALL - 

1 
2 
3 
4 
5 
6 
7 
S 
9 
10 
11 
12 
13 
14 
15 
16 
17 
IS 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
3H 
39 
40 
41 
42 
43 
44 
45 
46 
47 
4S 
49 
50 
51 

53 
54 
55 
56 



-- DisfTiount and deallocate all devices 



21 -Dec -87 11: 4i I'sge dv 



01 
01 
01 



01 
01 
01 



1344 
1 346 
1350 



1352 
1356 
1 ■3c>td 



01 
01 
01 
01 
01 
01 
01 
01 



1364 
1370 
1372 
1376 
1402 
1404 
1410 
1412 



01 
01 
01 
01 
01 
01 
01 
01 



1414 
1416 
1420 
1424 
1430 
1434 
1436 
1440 



01144^ 



011446 

011452 
011456 



01 
01 

01 

01 



1460 
1462 
1464 
1466 



010246 
010346 
010546 



00 5067 
012700 
104375 



016705 
010500 
004767 
005767 
001421 
004767 
130312 
001415 



140312 
010500 
004767 
012703 
012702 
105723 
001003 
077203 



062705 
020567 
103744 



012605 
012603 
012602 
000207 



. SBTTL DMTALL — DJBmount and deallocate all devices 
Dismount and deallocate all devices that are mounted by the current job. 



DMTALL 



MOV 
MOV 
MOV 



R2, -iSP) 
R3, -(SP) 
R5. -(SP) 



Deallocate all devices allocated by this job 



0000000 
OOOOOOG 



CLF? ALCDEV 
MOV #DLCEMT.. RO 
EMT 375 



; Say to deallocate all devices for this job 
; Point to EMT argument block 
iDeallocate all devices for this job 



OOOOOOG 

001070 
OOOOOOC 

000152 



1*: 



MOV 


CSHDEV, R5 


MOV 


R5, RO 


CALL 


CDGET 


TST 


CDBUF+CDiliDVU 


BEO 


2* 


CALL 


CDJFLG 


BITB 


R3, <R2) 


BEQ 


2* 



001062 

OOOOOOC 

OOOOOOG 



3*: 



004767 000022 



Search through mount table looking for devices mounted by our job 

Point to table of mounted devices 

Get address of mount entry 

Read mount entry into CDBUF 

Is this table entry in useT' 

Br if not 

Get mount-flag for our job 

Is this device mounted by us? 

Br if not 

Found a device that is mounted by us* 

reset mount flag for our job and see if device is mounted 

by any other jobs. 

Reset mount flag for our job 

Get address where block is to be stored 

UJrite updated block back into kernel data 

Get address of mount-flag table 

Get # bytes in mount-flag table 

Any other jobs using this device? 

Br if yes 

Mo other jobs have this device mounted. 

Free the mount table entry for this device and remove 

any file entries from cache. 

CALL DMTSUB ; Dismount this device and all of its files 

Chf?ck next entry in mount table 



c 

€ 

i 

i 
i 
I 
f 

c 
I 



BICB 


R3, <R2) 


MOV 


R5, RO 


CALL 


CDPUT 


MOV 


#CDBUF+CD*JOB> R3 


MOV 


#CDf*UB>R2 


TSTB 


<R3) + 


BWE 


2* 


SOB 


R2, 3* 



OOOOOOG 
OOOOOOG 



?*: 



ADD 

CMP 
BLO 

F i n i ii h e d 



MOV 
MOV 
MOV 
RETURN 



#CD**SZ.R5 
R5, CSHDVN 
1* 



(SP)+, R5 
(SP)+, R3 
<SP>+, H2 



; Point to next entry in mount table 

; Any more entries?" 
> Loop if yes 



i 

€ 
4 



DMT SUB 
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-- Remove a de-'/ics from directory cache 



;i 

p 

3 
4 
5 
6 
7 
S 
9 
10 
U 
13 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 



SBTTL DMT SUB 



Remove a device from directory cache 



DMTSUJ3 is called to remove from the mount table a specific device 
and to remove from the directory cache any files associated with 
the device. 

Input <i : 
CDBUF contains mount table entry for device to be dismounted. 



011470 010346 



DMTSUB : MOV R 3 , - < SP ) 

See if this device is a locical disk mounted by us 



011472 016700 OOOOOOG MOV 

011476 005003 CLR 

011500 026763 OOOOOOC OOOOOOG US: CMP 

011506 001004 BNE 

011510 026763 OOOOOOC OOOOOOG CMP 

011516 001412 BEO 

011520 005200 2*: INC 

011522 062703 000002 ADD 

011526 020327 000016 CMP 

011532 101762 BL.OS 



R50LD0<R0 ; Get LDO as initial device name 

R3 > Init LD table index 

CDBUF+CDSDVU, LDPDEV<R3) ils this LD on same physical device? 

2* i Br if not 

CDBUF+CD*BAS, LDBASE<R3) i Same starting block numbers? 



3* 
RO 

#2. R3 
R3, #14. 
1* 



j Br if yes — Found logical disk that matches 
J Advance logical disk name 
J Advance LD table index 
iChecked all logical disks? 
i Br if not 



This is not a logical dif-k. 
Get physical device name. 



011534 016700 OOOOOOC 
011540 004767 001666 



1 1 544 1 0067 OOOOOOG 
011550 012700 OOOOOOG 
011554 10437^1 



011556 012603 
011560 000207 



MOV 
CALL 



CDBUF+CD*DVU, RO ; Get physical device and unit number 



CVDVNM 
Do dismount EMT 



3*: 



MOV 


RO. MNTDEV 


MOV 


#DMTARG, RO 


EMf 


375 


Finished 




MOV 


(SP)+, R3 


RETURN 





; Convert to device name 



; Set name of device to dismount 
; Point to EMT argument block 
.Dismount the device 



CDJFLG 



Get uzer-f. 



outines HAC-KU vus. U4 Monday 
aci for cached device? entru 
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1 

2 

3 

4 

5 

6 

7 

S 

9 

10 

11 

13 

13 

14 

15 

16 

17 

18 

19 

20 

21 



SBTTL CDJFLG 



Get user-flag for cached device entry 



01 
01 
01 
01 
01 
01 
01 
01 
01 
01 



1 562 
1566 
1570 
1572 
1 574 
1600 
1604 
1610 
1612 
1614 



1 1 6703 
006203 
005303 
005002 
071227 
062702 
012700 
072003 
010003 
000207 



CDJFLG is called to locate within a cached-device table entry the 
specific mount-flag that corresponds to the current job. 



I n p u t G : 
COF^USF'J = Current job index number. 

Outputs: 
R2 = Address of byte that contains mount-flag. 
R3 = Mount-flag bit positioned correctly within byte. 



OOOOOOG 



000010 

OOOOOOC 

000001 



CDJFLG: MOVE 
ASR 
DEC 
CLR 
DIV 
ADD 
MOV 
ASH 
MOV 
RETURN 



CORUSR, R3 

R3 

R3 

R2 

#8. , R2 



j Get current job index number 

i Convert to index by 1 

iMake base job number 

; Clear for divide 

jDivide by 8 jobs per byte 



ttCDBUF+CDfviOB, R2; Get address of byte within entry in CDBUF 
#1,R0 ; Get a mount flag 

R3» RO ; Position flag according to job number 

RO, R3 ; Return flag in R3 



( 





TSKMN3 - 




CHRDEV - 




1 




2 
3 




4 




6 




7 




a 

9 




10 




11 
12 




13 




14 
15 




16 




17 
18 




19 




20 

21 




22 




23 
24 




25 




26 
27 




28 




29 
30 




31 




32 
33 




34 




35 
36 




37 




38 
39 




40 




41 
42 




43 




44 

45 < 




46 < 




47 < 

4a < 




49 { 




50 < 

51 ( 




52 ( 




53 « 
54 




55 




56 
57 ( 
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- See if r equBBted device is legal 



011616 
011620 



010146 
010246 



01 
01 
01 
01 
01 



01 
01 
01 
01 
01 
01 
01 
01 
01 
01 



1622 
1624 
1626 
1632 
1634 



1642 
1646 
1652 
1654 
1656 
1662 
1664 
1670 
1672 



010501 
010500 
004767 
103402 
016201 



00 5000 
07 1027 
012702 
005701 
001406 
162701 
010102 
020227 
101027 
070027 



001740 
000004 



000050 
177777 



000036 
000007 
000050 



01 
01 
01 
01 
01 
01 
01 
01 
01 



1676 
1702 
1704 
1710 
1712 
1716 
1720 
1722 
1726 



020167 
001403 
020167 
001007 
016704 
005702 
002015 
1 1 6702 
000412 



OOOOOOG 
0000000 

ooooooe 

00000 10 



1 1 730 1 6704 0000000 



SB TIL CHKDEV 



Be^e if requested device is legal 



CHKDEV is called to convert a device name into the corresponding 
device index number and unit number. 

Inputt>: 
R5 = Device-unit specification in rad50 form <e. g., "RKl") 



Outputs: 
RO = Unit number of device 
R4 -■ Index into device tables 
G"~flac! set on return if the (i'sy i.cs is not recognized. 



CHKDEV: MOV 
MOV 



Rl, ~<SP) 
R2, -(SP) 



If this name has been assigned, substitute physical device name for 

logical device name. 

; GET LOGICAL DEVICE NAME 

SEE IF DEVICE NAME HAS BEEN ASSIGNED 

BR IF NOT ASSIGNED 

REPLACE LOGICAL DEVICE NAME WITH PHYSICAL 



MOV 


R5, Rl 


MOV 


R5, RO 


CALL 


ASN3RC 


BCS 


11$ 


MOV 


4(R2),R1 



Get device name and split off unit number. 



11*: 



6'*: 



CLR 
DIV 
MOV 
TST 
BEQ 
SUB 
MOV 
CMP 
BHI 
MUL 



RO 

#50, RO 
#-1, R2 
Rl 
6* 

#36, Rl 
Rl, R2 
R2, #7 
8* 
#50, RO 



SET FOR DIVIDE 

SPLIT OFF LOW-ORDER RAD50 CHARACTER 

ASSUME NO UNIT NUMBER SPECIFIED 

WAS A UNIT NUMBER SPECIFIED? 

BR IF NOT 

CONVERT RAD 50 DIGIT TO BINARY VALUE 

GET BINARY VALUE OF UNIT NUMBER 

RESTRICT UNIT NUMBER TO RANGE 0-7 

BR IF INVALID UNIT NUMBER 

GET DEVICE NAME WITHOUT UNIT NUMBER 



The radSO device name less unit number is now in Rl. 

R2 has the binary value of the unit number or -1 if no unit number 

was specified. 

Translate "SY: " and "DK: " to physical device. 

IS DEVICE NAME "DK"7' 

BR IF YES 

IS DEVICE NAME "SY"? 

BR IF NOT 

GET SY DEVICE INDEX NUMBER 

DID USER SPECIFY A UNIT NUMBER? 

BR IF YES 

GET SYSTEM DEVICE UNIT NUMBER 



Look up device name in permanent device name table. 
3$: MOV NUMDEV, R4 ; GET INDE.X NUMBER OF LAST DEVICE 



215: 



CMP 


Rl, R50DK 


BEQ 


2* 


CMP 


Rl, R50SY 


BNE 


3* 


MOV 


SYINDX,R4 


TST 


R2 


BGE 


7* 


MOVB 


SYUNIT+1> R2 


BR 


7* 



TSKMN3 - 


— TSKMDN aubroi. 


tines 


CHKDEV - 


— See i 


f r e q u e t; 


ted d e V i 


58 


011734 


020164 


OOOOOOG 


59 


011740 


0014013 




60 


011742 


162704 


000002 


61 


011746 


002372 




62 








63 








64 








65 


011750 


000261 




66 


011752 


000414 




67 








68 








69 








70 


011754 


010200 




71 


011756 


002001 




72 


011760 


005000 




73 








74 








75 








76 








77 


011762 


020467 


OOOOOOG 


78 


011766 


001005 




79 


011770 


010002 




80 


011772 


006302 




81 


011774 


005762 


OOOOOOG 


82 


012000 


00 1 763 




83 


012002 


000241 




84 








85 








86 








87 


012004 


012602 




88 


012006 


012601 




89 


012010 


000207 





MACRU V05. 04 
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5*: 
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CHP R1,PNAME<R4) 

DEO 7* 

SUB #2.. R4 

BGE 5* 

Invalid device name 



B*; 



SEC 
BR 



10$ 



SEARCH FOR NAME IN TABLE 

BR IF FOUND 

TRY NEXT ENTRY 

LOOP IF MORE TO CHECK 



i SIGNAL INVALID DEVICE NAME 
; RETURN 



Found device name. 



7$: 



MOV 

BGE 
CLR 



R2, RO 

1* 

RO 



Translate no unit number into # 0. 



GET UNIT NUMBER VALUE 

BR IF UNIT NUMBER WAS SPECIFIED 

SAY UNIT # ^= IF NONE SPECIFIED 



If the device is a logical disk (LDn)/ check to make sure the 
particular unit is mapped to a file 

1*: CMP R4, LDDEVX i IS THIS A LOGICAL DISK? 

BR IF NOT 
GET UNIT NUMBER 
CONVERT TO WORD TABLE INDEX 
IS UNIT MAPPED TO A FILE? 
BR IF NOT 

9$: CLC i SIGNAL GOOD RETURN 



10* 



CMP 


R4, LDDEVX 


BNE 


9* 


MOV 


RO, R2 


ASL 


R2 


TST 


LDPDEV(R2> 


BEQ 


8* 


CLC 




Finished — 


Return 


: MOV 


(SP)+, R2 


MOV 


<SP)+, Rl 


RETURN 





rSKMNS - 
CHKHNT ~ 

1 
2 
3 



~ iSKnuN irjubT-DUtines fiAUKU 
- See if devire is mounted 



4 
5 








6 








7 








8 








9 








10 








11 








12 








13 








14 


012012 


010346 




15 


012014 


010446 




16 


012016 


010546 




17 








IS 








19 








20 


012020 


004767 


177572 


21 


012024 


103437 




22 








23 








24 








25 


012026 


020467 


0000000 


26 


012032 


00 1 006 




27 


012034 


006300 




28 


012036 


016004 


OOOOOOG 


29 


012042 


016003 


OOOOOOG 


30 


012046 


000403 




31 


012050 


000300 




32 


012052 


050004 




33 


012054 


005003 




34 








35 








36 








37 


012056 


016705 


OOOOOOG 


38 


012062 


010500 




39 


012064 


004767 


000376 


40 


012070 


020467 


OOOOOOC 


41 


012074 


001003 




42 


012076 


020367 


OOOOOOG 


43 


012102 


001407 




44 


012104 


062705 


OOOOOOG 


45 


012110 


020567 


OOOOOOG 


46 


012114 


103762 




47 


012116 


000261 




48 


012120 


000401 




49 








50 








51 








52 


012122 


000241 




53 








54 








55 








56 


012124 


012605 




57 


012126 


012604 
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. SBTTL CHKMNT — Bee if- device is mounted 

CHKiiNT is called to determine if a specified device is mounted 
by any users. 

Inputs: 
R5 ~ RadSO device-unit name. 

Outputs: 
C-flag cleared ==> Device is mounted. 
C~flag set ==> Device is not mounted. 
CDBUF contains mount table entru for devire. 



CHKHNT: 


HOV 


R3, -<SP) 




MOV 


R4, -<SP) 




MOV 


R5, -<SP) 



Conv/ert device name into device index number and unit number 



CALL 
BCS 



CHKDEV 
9* 



; Convert device name to device # and unit # 

j Br if invalid device name 



1*: 



CMP 


R4, LDDEVX 




BNE 


1* 




ASL 


RO 




MOV 


LDPDEV(R0),R4 




MOV 


LDBASE<R0),R3 




BR 


2* 




SWAB 


RO 




B I S 


RO, R4 




CLR 


R3 





3$: 



4$: 



6<^: 



If this device is a logical disk, get base block # and physical dev info 

Is this a logical disk?" 

Br if not 

Convert unit # to word table index 

Get physical disk device # and unit # 

Get base block # of logical disk file 

Put unit # in high-order byte 
; Combine unit # and device # 
iBase block # = if not logical disk 

Search mount table for this device 

Point to start of mount table 

Get addr of mount table entry 

Copy mount table entry into CDBUF 

Is entry for this device? 

Br if not 

Check base block numbers too 

Br if found entry for this device 

Point to next mount table entry 

Hit end of tabled' 

Loop if not 

Device is not mounted at all 



MOV 


CSHDEV, R5 


MOV 


R5, RO 


CALL 


CDGET 


CMP 


R4, CDBUF+CD*DVU 


BNE 


4* 


CMP 


R3, CDBUF+CD^BAS 


BEQ 


5* 


ADD 


#CD««SZ, R5 


CMP 


R5, CSHDVN 


BLO 


3* 


SEC 




BR 


9* 



5*: 



9*: 



We found entry for this device in mount table. 

CLC ; Signal that device is mounted 

F" i It i B h e d 



MOV 
MOV 



(SP)+, R5 
(SP)+, R4 
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CHKMNT — See if device is mounted 

58 012130 012603 MOV (SP)+,R3 

59 012132 000207 RETURN 



i 

€ 



TSKhN3 - 


..... j «-.;|..\ jvj!jj\| tj U D r iJ T. 1 71 e 5 


CHKMTX - 


— See i 


f device 


is moun 


1 
2 








3 








4 








5 








6 








7 








8 








9 








10 








11 








12 


012134 


010246 




13 


012136 


010346 




14 


012140 


010446 




15 


012142 


010546 




16 








17 








IS 








19 


012144 


004767 


177412 


20 


012150 


111204 




21 


012152 


140312 




22 








23 








24 








25 


012154 


01270D 


OOOOOOC 


26 


012160 


012700 


0000000 


27 


012164 


105725 




28 


012166 


00 1 004 




29 


012170 


077003 




30 


012172 


110412 




31 


012174 


000241 




32 


012176 


000402 




33 


012200 


110412 




34 


012202 


000261 




35 








36 








37 








38 


012204 


012605 




39 


012206 


012604 




40 


012210 


012603 




41 


012212 


012602 




42 


012214 


000207 
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SBTTL CHKHTX 



Bee if device is mounted by other users 



CHKMT.X is called to see if a mounted device has been mounted by 
any users other than tht- current user. 



Inputs: 
CDBUF contains mount table entry for device 

Outputs: 
C-flaq set ==> Device is mounted by other users. 



CHKMTX: MOV 
MOV 
MOV 
MOV 



R2.. ~<BP) 
R3, -(3P) 
R4, -<SP) 
R5, ~<SP) 



Get mount flag for current job 



CALL 
MOVB 
BICB 



CDJFLG 
<R2), R4 
R3, <R2) 



; Get mount flag for our job 

; Save mount flags for byte with our mount flag 

; Clear mount flag for our job 



See if any other jobs have this device mounted 

#CDBUF+CD*J0B>R5; Point to table with mount flags 

; Get # bytes in table 
i Any other mount flags set? 
; Br if yes 

; Reset mount flag for our job 

i Signal that device is not mounted by others 

} Reset mount flag for our job 

i Signal that device is mounted by others 





MOV 


#CDBUF+CD* 




MOV 


#CD«*UB, RO 


7*: 


TSTB 


<R5) + 




BWE 


S* 




SOB 


RO, 7* 




MOVB 


R4, (R2) 


6$; 


CLC 






BR 


9* 


8*: 


MOVB 
SEC 

F i n i s h c> d 


R4, <R2> 


9*: 


MOV 


(SP)+, R5 




MOV 


(SP)+, R4 




MOV 


(SP)+. R3 




MOV 


( SP ) +, R2 




RETURN 





4 



TSKMN3 
CKCLUS 
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Check to sec if a CL unit is in use 



3 
4 
5 
6 
7 
S 
9 
10 
11 
i 2 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 



012216 005760 OOOOOOQ 

012222 001404 

012224 016000 

012230 006200 

012232 000420 



012234 006200 

012236 020027 000007 



01224c 



1014013 



012244 162700 000010 

012250 066700 165644 

012254 00040r* 

012256 066700 165630 

012262 010067 OOOOOOG 

012266 012700 OOOOOOG 

012272 104375 



012274 000207 



. SBTTL CKCLUS — Check to see if a CL unit is in use 

ChecN to see if a CL unit is in use by any job. 

Inputs: 
RO = CL unit index (2 -^ CL unit number) 

Outputs: 
RO = Number of any job that is using CL unit <0 if free) 

CKCLUG: 

See if CL unit is in us& by SET HOST 

; Any job using mith SET HOST? 

i Bt if not 

; Set number of job 

; Convert index # to job # 



TST 


CL*XLN<RO) 


BEO 


1* 


MOV 


CL*XLN<RO)>RO 


ASR 


RO 


BR 


9* 



See if any job has CL unit open or allocated 



1*: 



2*: 
3*: 



Finished 
9$: RETURN 



ASR 


RO 


CMP 


RO, #7. 


BLOS 


2* 


SUB 


#8. , RO 


ADD 


R50C10, RO 


BR 


3* 


ADD 


R50CL0, RO 


MOV 


RO, ALCDEV 


MOV 


#TALEMT, RO 


EMT 


375 



; Convert to unit number 

J Is this a CL or CI unit? 

>Br if CL 

; Remove CI unit bicis 

i Form RadSO device name 

J Form radSO device name 

; Set device name for EMT 

iPoint to check-allocation EMT 

; See if this unit is allocated or in use 



I talM'IIN J -• 

CHKALC — 

1 

3 
4 
5 
6 
7 
S 
9 
10 
11 
12 
13 
14 
15 
16 
17 
IS 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 



Determine if device is allocated to another user 



■H7 11 ; 4j Haqe <b£) 



01 
01 
01 



2300 
2302 



01 
01 
01 
01 



01 
01 
01 
01 



2310 
2312 

2316 
2322 



2324 
2330 

2332 
2334 



01 
01 
01 
01 

01 
01 



2336 
2344 
2346 
2354 

2372 



01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 



2374 
2376 
2400 
2404 
2406 
2410 
2414 
2416 

2424 
2440 
2444 



010046 
010446 
010546 



012304 010067 OOOOOOG 



O 1000b 

004767 177300 

120467 OOOOOOG 

001455 



012700 
104375 
010005 
103017 



OOOOOOG 



123727 
001444 
123727 
00 1 007 



OOOOOOG OOOOOi 



OOOOOOG 000001 



. SBTTL CHKALC 



Determine if device is allocated to another user 



c 



CHKALC is called to determine if a device is allocated to another user. 
If the device is allocated to another user* an error message is printed 
and control is returned to F^DCHD. 



Inputs: 
RO -'RAD50 device name 



CHKALC: MOV 
MOV 
HOV 



RO, -<SP) 
R4> -<SP) 
R5, -CRP) 



Set name of device in EMI argument block 

MOV RO, ALCDEV ; Set name of device for EMT 
Don-'t do allocation test for LD device 



; Get name of device 

.: Convert to device index number 

J Ig this a LD device?' 

; Br if yes — allocation ok 



Execute EMT that ujiii test for allocation conflict 



MOV 


RO, R5 


CALL 


CHKDEV 


CMPB 


R4, LDDEVX 


BEQ 


9* 



MOV 


#TALEMT, RO 


EMT 


375 


MOV 


RO, R5 


BCC 


15$ 



; Point to EMT argument block 

i Do allocation test 

; Save # of any job that is using device 

; Br if allocation is ok 



An error occurred on the? test allocation. 
Print error message. 



i Inval id device? 

j Br if yes 

; Device already allocated by someone else? 

; Br if not 

i Device allocated by another job 



Device is either not allocated or is allocated to another 

job from the same primary line. 
See if device is in use by another job 



CMPB 


@#ERRLOC, #2 


BEQ 


9* 


CMPB 


©#ERRLOC, #1 


BNE 


15* 


FERR 


#EM*DAA 


BR 


17$ 



010500 

00 1 427 

120467 

001424 

006300 

120067 

001420 

005727 OOOOOOG 

00141l> 



004767 173476 



15$: 



OOOOOOG 



OOOOOOG 



17$: 



MOV 


R5, RO 


BEQ 


9* 


CMPB 


R4, CLDEVX 


BEQ 


9* 


ASL 


RO 


CMPB 


RO, CORUSR 


BEQ 


9* 


TST 


#KUSECK 


BEQ 


9* 


FERR 


#EM*D:fU 


CALL 


PRTDEC 



. PRINT #CRLF 



Get # of job using device 

Br if no job using device 

Is device a CL unit? 

Br if family member wants CL unit 

Convert to job index number 

In use by our job7' 

Br if yes 

Do u»e want to consider this as an error? 

Br if not 

Device is in use by another user 

Print the number of the job that has the dev 

Terminate the print line 



I 

c 
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CHKALC -— Determine if device is allocated to another user 

58 012452 000167 OOOOOOG JMP RDCMD ; Abort the command 

59 } 

60 ; We fan access the d e v i c t> 

61 ; 

62 012456 01260',> 9*: 

63 012460 012604 

64 012462 012600 

65 012464 000207 



MOV 


<SP)+,R5 


MOV 


<SP)+,R4 


MOV 


(SP)+> RO 


RETURN 





rSKMN;:? — ibKfiuiM teuDr out iries rtrtCKU vwi^. v^ rlonciay eil-Uec-ii'/ 1.1:4.1 F'age a/ 

CDGET -- Get local copy of maimt device entry 



SBTTL CDGET 



Get local copy of mount device entry 



3 

4 

5 

6 

7 

S 

9 

10 

U 

:I2 

13 

14 

15 

16 

17 

18 

19 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

30 

31 



1 2466 1 0067 OOOOOOG 

012472 012700 OOOOOOG 

012476 104375 

012500 012700 OOOOOOG 

012504 000207 



012506 010067 OOOOOOG 

012512 012700 OOOOOOG 

012516 104375 

012520 000207 



CDGET is called to move a copy of a system mount device (cache) 
entry into CDBUF. 

Inputs; 
RO = Address within kernel of mount block to get. 

Outputs: 
Copy of block is in CDBUF. 
RO " Pointer to CDBUF. 

CDGET: MOV RO, CDGADR i Set address of block to get 

Get address of EMT arg block 
Get copy of block 
Return pointer to CDBUF in RO 

.SBTTL CDPUT — Store mount descriptor block into kernel 

CDF*UT is called to copy a device mount <cache) descriptor block from 
CDBUF into the kernel data base. 

Inputs: 
RO = Address within kerenl where block is to be stored. 
CDBUF' = Copy of block to be moved. 



MOV 


RO, CDGADR 


MOV 


#CDGEMT, RO 


EMT 


375 


MOV 


#CDBUF, RO 


RETURN 





CDPUT; 



MOV 


RO, CDPADR 


MOV 


#CDPEMT, RO 


EMT 


375 


RETURN 





; Set destination address 

; Point to EMT argument block 

.: Store the block 



TBKMN3 - 


— TSKliO 


iM Sub r 01. 


tines 


LDCLEN - 
1 


„. Perform SET !. 


D CLEAN 


4 
5 








6 


012522 


010246 




7 


012524 


010546 




8 








9 








10 








11 


012526 


016705 


0000000 


ID 


012532 


005002 




13 








14 








15 








16 


012534 


010200 




17 


012536 


006300 




IS 


012540 


006300 




19 


012542 


005760 


0000000 


20 


012546 


00 1 423 




21 








22 








23 








24 


012550 


010567 


0000000 


25 


012554 


012700 


0000000 


26 


012560 


105267 


OOOOOOG 


27 


012564 


104375 




28 


012566 


105067 


OOOOOOG 


29 








30 








31 








32 


012572 


004767 


000042 


33 








34 








35 








36 


012576 


005762 


0000000 


37 


012602 


001405 




38 


012604 


010567 


OOOOOOG 


39 


012610 


012700 


OOOOOOG 


40 


012614 


10437ri 




41 








42 








43 








44 


012616 


005205 




45 


012620 


062702 


000002 


46 


012624 


020227 


000016 


47 


012630 


101741 




48 








49 








50 








51 


012632 


012605 




52 


012634 


012602 




53 


012636 


000207 
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SBTTL LDCLEN 



Perform SET LD CLEAN operation 



LDCLEN call be called to perform the SET LD CLEAN function. 
It also causes the file directory cache to be cleaned out. 



LDCLEN: MOV 
MOV 



R2, -<SP) 
R5, -<SP) 



Perform LD CLEAN operation (reset logical disk information) 



MOV 



R SOLDO, R5 



J GET NAME OF FIRST LOGICAL DISK <LDO) 
: GET INDEX TO 1ST LOGICAL DISK (LDO) 



See if this logical disk is in use 



1*: 



MOV 
ASL 
ASL 
TST 
BEQ 



R2, RO 

RO 

RO 

LDNAME<RO) 

2* 



Dismount the logical dif>k 



; GET LD INDEX NUMBER 
; «• 4 WORDS PER ENTRY 

; IS THIS LOGICAL DISK IN USE? 
; BR IF NOT 



SET DEVICE NAME FOR DISMOUNT 
DISMOUNT THE DEVICE 
DO . SERR 



; DO . HERR 
Now reinitialize information about the logical disk 

CALL LDMNT i CHECK IT 

Now remount the logical disk 



MOV 


R5, MNTDEV 


MOV 


#DMTARG, RO 


INCB 


SERFLG 


EMT 


375 


CLRB 


SERFLG 



TST 
BEQ 
MOV 
MOV 
EM7 



LDPDEV<R2) 

2* 

R5, MNTDEV 

#MNTARG, RO 

375 



IS THE LOGICAL DISK THERE? 
BR IF NOT 

SET DEVICE NAME FOR THE MOUNT 
MOUNT THE DEVICE 



Check next 1 o q i c a 1 disk 



2i|3: 



INC 


R5 


ADD 


#2, R2 


CMP 


R2, #14. 


BLCS 


1* 


F i II i shed 




MOV 


(SP)+, R5 


MOV 


( SP ) +, R2 


RETURN 





ADVANCE LDn NAME 

ADVANCE LOGICAL DISK INDEX NUMBER 
HAVE WE CHECKED ALL LOGICAL DISKS? 
BR IF NOT 



TSKMN3 
LDhINT 
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" Set up inf orffiation about a logical disk 



1 
2 
3 
4 
5 
6 
7 
8 
9 
10 
11 

•I O 
J. a. 

13 

14 

15 

16 

17 

18 

19 

20 

21 
on 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 

45 

46 
47 

48 
49 
50 
51 
52 
53 
54 
55 
56 
57 



. SBTTL LDMNT — Stt up information about a logical disk 

LDHMf is called to set up information about a logical disk. 
Inputs: 

R2 ■'--■' 2* logical disk # <0 to 14. ) 

LDNAME < un i t ) - Name of file associated with logical disk. 

Outputs: 

LDPDEV<unit) = Physical device index # and unit # 

LDSIZE<unit) = Size of file 

LDBASE<unit) = Base block on physical disk of start of logical disk 



/"^ js •ys' -r- ! I .-. -fi *l .-3 rt 



1 2640 
012642 



0:1 0446 
010546 



i.DMiMT: 



MOV 
MOV 



is set on return if file cannot be found. 

R4. -<UP) 
R5, -(SP) 



Remove any entry for this logical disk from access control table 



012644 004767 000450 



CALL DLLDAC 
Do lookup on file 



012650 
012652 
012654 



010205 
006305 
006305 



012656 062705 
012662 005715 
012664 001475 
012666 112767 
012674 
012712 
012720 



1 1 2767 
103457 
010062 OOOOOOG 



OOOOOOG 

000001 OOOOOOG 
000000 OOOOOOG 



MOV 


R2, R5 


ASL 


R5 


ASL 


R5 


ADD 


#LDNAME, R5 


TST 


(R5) 


BEQ 


9* 


MOVE 


#1, SERFLG 


. LOOKUP 


#XAREA, #1> R5 


MOVE 


#0, SERFLG 


BCS 


9* 


MOV 


RO, LDSIZE<R2) 



i REMOVE LD ENTRY FROM ACCESS CONTROL TABLE 



;GET UNIT # 

; #4 WORDS PER ENTRY 

POINT TO FILE SPEC IN LDNAME TABLE 

IS THERE A FILE SPEC FOR THIS DISK? 

BR IF NOT 

DO . SERR TO AVOID ABORT FOR ILLEGAL DEVICE 

LOOKUP THE FILE 

DO . HERR <DON'T CLEAR C-FLAG) 

BR IF CAN'T FIND THE FILE 

SAVE THE SIZE OF THE FILE 



Do . SAVESTATUS to get information about the file 



012726 012705 
012732 



OOOOOOG 



012750 
012754 
012760 
012764 
012770 
012774 
013000 



016500 OOOOOOG 

042700 177701 

1 1 0062 OOOOOOG 

116504 OOOOOOG 

042704 177770 



MOV #BLK0, R5 

. SAVEST #XAREA, #1, R5 

MOV 

BIC 

MOVB 

MOVE 

BIC 



; POINT TO AREA FOR SAVESTATUS DATA 

i SAVE FILE STATUS 

i GET CSW 

J EXTRACT DEVICE UNIT # 

i SAVE PHYSICAL DEVICE INDEX NUMBER 

; GET PHYSICAL UNIT NUMBER 



1 1 0462 
016562 



00000 IG 
OOOOOOG OOOOOOG 



MOVB 
MOV 



C. CSW<R5), RO 

#'^C76, RO 

RO, LDPDEV(R2) 

C. DEVQ<R5),R4 

#'-C7, R4 

R4, LDPDEV-+1(R2) ; SET PHYS UNIT # FOR LOGICAL DISK 

C. SBLK<R5>>LDBASE<R2) ; GET BASE BLOCK # OF LOGICAL DISK 



If iue have read-only access to the file associated with the logical 
diBk, set no-write flaq for this LD entry. 



013006 032765 
013014 001403 
013016 052762 



OOOOOOG OOOOOOG 
OOOOOOG OOOOOOG 



BIT 
BEO 
BIS 



#CS*RON, C. CSW<R5);D0 WE HAVE READ-ONLY ACCESS TO FILE? 

2* i BR IF NOT 

#LD*RON, LDFLAG<R2);SET NO-WRITE FLAG FDR THIS LD 



See if the logical disk file is itself within a logical disk 

<i. B. , this is a nested logical disk) 



013024 020067 OOOOOOG 



CMP 



RO, LDDEVX 



; IS FILE ON A LOGICAL DISK? 



I 

€ 
I 
f 
I 
€ 

€ 
€ 

€ 

€ 

€ 

t 
I 
i 



LDHNT • 

58 
59 
60 
61 
62 
63 
64 
65 
66 
67 
68 
69 
70 
71 
72 
73 
74 
75 
76 
77 
78 
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— Set up information about a logical disk 



013030 001007 

013032 006304 

013034 016462 OOOOOOG OOOOOOG 

013042 066462 OOOOOOG OOOOOOG 



013050 004767 000100 



013054 000241 
013056 000403 



013060 
013064 
013066 
013070 
013072 



005062 
000261 
012605 
012604 
000207 



OOOOOOG 



BNE 1* ; BR IF NOT 

ASL R4 ; CVT UNIT # TO LOG DISK TABLE INDEX 

MOV LDPDEV<R4),LDPDEV(R2) i GET REAL PHYSICAL DEVICE & UNIT # 

ADD LDBASE(R4),LDBASE<R2) ;BIAS BASE BLOCK # BY LOG DISK BASE 

Make entry for the LD in the access control table. 

1*: CALL ADLDAC j MAKE ENTRY IN ACCESS CONTROL TABLE 



CLC 
BR 



J SIGNAL SUCCESS ON RETURN 



Error 
10*: 



CLR 
SEC 
MOV 
MOV 
RETURN 



JO* 
Could not find the file 
LDPDEV(R2) 



(SP)+, R5 
<SP)+, R4 



; SAY LOGICAL DISK IS NOT ACTIVE 
; SIGNAL FAILURE ON RETURN 



c 
c 

i 
< 

I 

€ 

i 

i 
I 

4 
€ 

C 
i 
i 
i 



CKLDAC 



3 
4 
5 
6 
7 
S 
9 
10 
11 
12 
13 
14 
15 
16 
17 
IS 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 



"-- Check if LD is in access control table? 



=!l~L'ec-S7 IJ.'U Hage /u 



. S3BTTL CKLDAC — Ch«?ck if LD is in access control table 

CKLDAC is called to determine if a certain logical disk is in the 
device/file access control table. 

I n f) u t B : 
R2 = Logical disk index number (2 # unit #) 

Outputs: 
C-flag cleared ==> Found logical disk entry in access control table. 
C-flag set ==> Logical disk entry is not in access table. 
RO =■■ Pointer to acrer,B control entry. 



013074 010246 

013076 006202 

013100 005767 0000000 

013104 001416 



CKLDAC: MOV 
ASR 
TST 
BEO 



R2 

RESDEV 

4* 



<SP) 



SAVE ORIGINAL LD INDEX NUMBER 

CONVERT INDEX # TO UNIT # 

ARE THERE ANY ENTRIES IN ACCESS TABLE? 

BR IF NOT 



013106 012700 0000000 

013112 126067 OOOOOOG OOOOOOG 1$: 

013120 001003 

013122 120260 OOOOOOG 

013126 001407 

013130 062700 OOOOOOG 2«: 

013134 020027 OOOOOOG 

013140 103764 



There are entries in the access control table. 
Search for entry matching our logical disk. 

j POINT TO START OF ACCESS TABLE 
0F*DEV(R0). LDDEVX i IS THIS ENTRY FOR A LOGICAL DISK? 

DR IF NOT 

IS ENTRY FOR SPECIFIED UNIT? 
BR IF YES — FOUND ENTRY 
POINT TO NEXT ACCESS ENTRY 
CHECKED ALL ENTRIES? 
BR IF NOT 



NOV 


#OKFILE, RO 


CMPB 


OF*DEV ( RO ) . LD 


BNE 


2« 


CMPB 


R2. QF*UNT<RO) 


BEQ 


3* 


ADD 


#OF**SZ, RO 


CMP 


RO, #OKFEND 


BLO 


1* 



LD entry is not in access table 



013142 000261 
013144 00040 J 



013146 000241 
013150 012602 
013152 000207 



4^: SEC 

BR 9* 

Found LD entry in table 



; SIGNAL FAILURE ON RETURN 



3*: 
9*: 



CLC 
MOV 
RF i URN 



(SP)+, R2 



; SIGNAL SUCCESS ON RETURN 
; RECOVER LD INDEX NUMBER 



i 

f 
I 
I 

i 
i 



i 
1 
I 
I 



i 
i 
i 
t 
< 



ADLDAC -■ 

1 



TSKriON Subroutines 



23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 



- Add LD entrij to 



access 



MACRO vOd. 04 Honda y 
control table 
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3 
4 
5 
6 
7 
S 
9 

10 

11 
12 
13 
14 

15 

16 

17 
18 
19 
20 
21 



13154 
13160 



13162 
13164 
13166 



13170 
13174 
13200 
13202 
13206 
13210 
13214 



13216 
1 3224 
13230 
13234 
13240 
13244 
13250 
13254 
13256 
13264 
13266 
13274 



013: 



13312 
13314 
13316 



005767 
001456 



010246 
010546 
006202 



012705 
020527 
103036 
005765 
001403 
062705 
000767 



116765 
110265 
012700 
010065 
010065 
010065 
105065 
006302 
032762 
001412 
1 52765 
000406 



012605 

012602 
000207 



. SBTTL ADLDAC -■- Acic! LD entry to access control table 

ADLDAC is called to add a logical disk entry to the device/file 
access control table. If- there are no protected devices or files 
no entry is made. 

Inputs; 
R2 •-- Logical disk index number <2 ■«■ unit number) 



OOOOOOG 



ADLDAC: TST 

BEQ 



RESDEV 
9* 



i ANY ENTRIES IN ACCESS TABLE? 

; BR :CF NOT 



There are entries in the access control table 



MOV 
MOV 
ASR 



R2, "(SF^) 
R5, -(SP) 
R2 



0000000 
OOOOOOG 

OOOOOOG 

OOOOOOG 



1*: 



MOV 


#OKFILE, R5 


CMP 


R5, ttOKFEND 


BHIS 


3* 


TST 


0F*FIL<R5.> 


BEO 


2* 


ADD 


#OF$*SZ.. R5 


BR 


1* 



OOOOOOG OOOOOOG 

OOOOOOG 

OOOOOOG 

OOOOOOG 

000002G 

000004G 

OOOOOOG 

OOOOOOG OOOOOOG 

OOOOOOG OOOOOOG 



2$: 



.; CONVERT LD INDEX # TO UNIT # 

Find a free entry in the access table 

.; POINT TO START OF ACCESS TABLE 

; REACHED END OF TABLE? 

.; BR IF YES — TABLE OVERFLOW 

; IS THIS ENTRY FREE? 

iBR IF FREE 

; POINT TO NEXT ENTRY 

; GO CHECK IT 

We found a free entry. Add entry for LD. 

MOVB LDDEVX. 0F$DEV<R5)i SET LOGICAL DISK DEVICE INDEX NUMBER 

MOVB R2, 0F*UNT<R5) J SET LOGICAL DISK UNIT # 

MOV ttWLDNAM, RO ; SET FILE NAME TO WILDCARDS 

MOV RO, 0F$FIL<R5) 

MOV RO, 0F$FIL+2<R5) 

MOV RO, 0F$FIL+4<R5) 

CLRB 0F*FLG<R5) ; INITIALLY CLEAR ALL CONTROL FLAGS 

ASL R2 i CVT UNIT # TO LD INDEX # 

BIT #LD*RON, LDFLAG<R2>i IS LOGICAL DISK WRITE PROTECTED? 

BEQ 4* .: BR IF NOT 

BISB #OT*RON, DF*FLG<R5); SET READ-ONLY FLAG IN ACCESS TABLE 

BR 4* 



Error -• - Access table overflow 
3*: FERR #TBLOVF ; TABLE OVERFLOW 

F- i n i & h e d 
4$: 
9f : 



MOV 
MOV 
RETURN 



(SP)+,R5 
\'SP)+, R2 



rsKMN3 — ISKriLiN buDroutmes hacmu vut?. U4 Monday 2i-Dec-e7 11:4] pBC^e /k' 
DLLDAC — Delete LD entry from access control table 



1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

IS 

19 

20 

21 



SBTTL DLLDAC 



Delete LD entry from access control table 



013320 004767 177550 
013324 103406 



013326 105060 OOOOOOG 
013332 105060 OOOOOOG 
013336 005060 OOOOOOG 



013342 000207 



DLLDAC is called to delete any entry in the access control table 
for a specified logical diiik. 

I n p 1.1 1 B : 
R2 = Logical disk index number <2 # unit number) 



DLLDAC: CALL 



CKLDAC 
1* 



i IS THERE AN ENTRY FOR THIS LD IN TABLE? 

; BR IF NOT 



We have found an entry in the access table for this LD. 
RO = Pointer to the entry. 



CLRB 
CLRB 
CLR 

Finished 

$: RETURN 



OF*DEV<RO) 
OF*UNT<RO) 
OF*FIL<RO) 



; MARK ENTRY AS FREE 



i 



TSKMNS — iSKMON bubrautines haCku vO». U4 Monday 21-Dec-S7 11:41 Pa.qe '/J 
DOASGN — Add entry to the ASSIGN table 



3 








4 








5 








6 








7 








8 








9 


013344 


010246 




10 








11 








12 








13 


013346 


004767 


000220 


14 


013352 


103402 




15 


013354 


016200 


000004 


16 








17 








18 








19 


013360 


010046 




20 


013362 


010500 




21 


013364 


004767 


000202 


22 


013370 


103010 




23 








24 








25 








26 


013372 


005000 




27 


013374 


004767 


000172 


28 


013400 


103004 




29 


013402 






30 








31 








32 








33 


013412 


010522 




34 


013414 


005022 




35 


013416 


012622 




36 


013420 


005022 




37 


013422 


005022 




38 


013424 


005022 




39 








40 








41 








42 


013426 


012602 




43 


013430 


000207 





. SBTTL DOASGN — Add entry to the ASSIGN table 

DOASGN 15 called to make an f?ntry in the ASSIGN table. 

X n p u t ft : 
Hb ■■= Logical device name. 
RO = Physical device narnt:. 

DOASGN: NOV R2. "<SP) 

Determine if the "physical" device name is actually a logical name 

1*: CALL ASNSRC J SEE IF THIS IS ACTUALLY A LOGICAL NAME 

BCS 2* .:DR IF NOT 

MOV 4<R2),R0 i REPLACE PHYSICAL NAME WITH NEW NAME 

See if an entry already exists in the assign table for this logical name 

SAVE PHYSICAL DEVICE NAME 

GET LOGICAL NAME 

LOOK IT UP 

BR IF FOUND ENTRY — REUSE THE ENTRY 

Add a new entry to the assign table 



MOV 


RO, -<SP) 


MOV 


R5, RO 


CALL 


ASNSRC 


BCC 


3* 



CLR RO 

CALL ASNSRC 

BCC 3* 

FAB OR T #ASNOVF 



SEARCH FOR A FREE ENTRY IN THE ASSIGN TABLE 
LOOK FOR FREE ENTRY 
BR IF FOUND ONE 
ASSIGN TABLE OVERFLOW 



Move information into assiqn table 



3*: 



MOV 
CLR 
MOV 
CLR 
CLR 
CLR 

F i n i & h e d 



MOV 
RETURN 



R5, <R2) + 
(R2) + 

(SP)+, (R2) + 
(R2> + 
<R2) + 
<R2) + 



<SP)+i R2 



LOGICAL NAME 
NO FILE SIZE 
PHYSICAL DEVICE NAME 
NO FILE NAME 

NO EXTENSION 



TSKMN3 — TSKMDN Subroutines 
CVDVIMM ~ 
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Convert device number to device name 



1 

3 

4 

5 

6 

7 

8 

9 
10 
11 

12 013432 010346 

13 013434 010003 

14 013436 000303 

15 013440 042703 

16 013444 042700 

17 013450 016000 

18 013454 062703 

19 013460 060300 

20 013462 012603 

21 013464 000207 



177770 
177400 
OOOOOOQ 
000036 



. SBTTL CVDVNH — Convert device number to device name 

CVDVNM is called to convt-rt a device number / unit number combination 
into a RAD50 device name. 

Inputs: 
RO ~ Device number (low-order byte), unit number (high-order byte) 

Outputs: 
RO = RAD50 device name. 



iCopy device # and unit # 

j Put unit # in loui-order byte 

; Clear all but unit number in R3 

; Clear all but device number in RO 

; (5et base device name 

; Convert unit number to RAD50 character 

; Combine unit number with device name 



CVDVNM: 


MOV 


R3.. -iSP) 




MOV 


RO, R3 i 




SWAB 


R3 i 




BIC 


#'-C7, R3 ; 




BIC 


#-^C377, RO ; 




MOV 


PNAME(RO.K. RO ; 




ADD 


#30. , R3 ; 




ADD 


R3, RO ; 




MOV 


(SP)+, R3 




RETURN 





€ 
€ 

t 
i 
4 
< 

i 



c 

€ 



TSKMN3 - 


— TSKnijN buDrour, ines 


CHKCLU - 

1 
2 
3 


— • See i 


f device? 


name i 








4 








5 








6 








7 








a 








9 








10 








11 








12 








13 








14 


013466 






15 








16 








17 








IS 


013466 


020067 


164416 


19 


013472 


001002 




20 


013474 


005000 




21 


013476 


000431 




22 


013500 


020067 


164406 


23 


013504 


103406 




24 


013506 


020067 


164402 


25 


013512 


101003 




26 


013514 


166700 


164372 


27 


013520 


000420 




28 








29 








30 








31 


013522 


020067 


164370 


32 


013526 


001003 




33 


013530 


012700 


000010 


34 


013534 


000412 




35 


013536 


020067 


164356 


36 


013542 


103411 




37 


013544 


020067 


164352 


38 


013550 


1 1 006 




39 


013552 


166700 


164342 


40 


013556 


062700 


000010 


41 








42 








43 








44 


013562 


000241 




45 


013564 


000401 




46 








47 








48 








49 


013566 


000261 




50 








51 








52 








53 


013570 


000207 
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CL or CI unit 



SBTTL CHKCLU 



Cijpe if device name is CL or CI unit 



Determine if a radSO device name is a CL or CI unit. 
If so> determine the unit number. 

.1 n p u t B : 
RO = RAD50 device name <e. g. > CL2) 

Outputs: 
C-flag cleared =-> lliiH is a CL or CI unit 
C~flag set ==> This is not a CL or CI unit 
RO -~ CL unit number <n -ir>) 

CHKCLU: 

See if this is a CL unit 



i Is name "CL"? 

i Br if not 

j Translate to unit O 



1$: 



Ci-IP 


RO, R50CL 


BNE 


1* 


CLR 


RO 


BR 


7* 


CMP 


RO, R50CL0 


BLO 


2* 


CMP 


RO, R50CL7 


BHl 


2* 


SUB 


R50CL0, RO 


BR 


7* 



See if this is a CI unit 



2*; 



3*; 



CMP 


RO, R50C1 


BNE 


3* 


MOV 


#8. , RO 


BR 


7* 


CMP 


RO, R SOCIO 


BLO 


8* 


CMP 


RO, RSOCiy 


BH.T 


S* 


SUB 


R SOCIO, RO 


ADD 


#8. , RO 



This, is a CL or CI unit 



7i|i: 



CLC 
BR 



9* 



'fhi& is not a CL or Ci unit 
8* : SEC 
i F i n i 5 h e d 
9*: RETURN 



.; Is unit in the range CLO to CL7? 
; Br if not 

; Br if not 

i Oet unit number 



i Is unit name "CI"? 
i Br if not 
; CI = unit 8 

; Is unit in the range CIO to C17? 
j Br if not 

; Br if not 

; Get CI unit number 

j Add CI uni t b ias 



i Signal success on return 



> Signal failure on return 



TSKMN3 
ASNSRC - 

1 
2 
3 
4 
5 
6 
7 
8 
9 
10 
11 

■I '7 

13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
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- Search assign table for logical name 



Hage 76 



13572 
13574 
13600 
13604 
13610 
13612 
13616 
13620 

1 36l£.<£. 

13624 
13626 
13630 



010146 
012701 
012702 
020062 
001405 
062702 
077106 
000261 
000401 
000241 
012601 
000207 



SBTTL ASNSRC 



Oearch assign table for logical name 



ASNSRC is called to search the assign table for an entry 
with a specified logical name. 

I n p u i R ; 
RO ~- Logical name to Kearth for. 

Outputs: 
C-flag set on return if no assign block found with matching name. 
Rk' ~ Address of assign block if one found. 



OOOOOOG 
OOOOOOG 
OOOOOOG 

OOOOOOG 



ASNSRC: 


MOV 


R 1 , - < SP ) 




MOV 


#MAXASN. Rl 




MOV 


#ASNTBL, R2 


1*: 


CMP 


RO. AT*L0G(R2) 




BEQ 


2* 




ADD 


#AT$*SZ, R2 




SOB 


Rl, 1* 




SEC 






BR 


3« 


2*: 


CLC 




3*: 


MOV 
RETURN 


(SP)+> Rl 



GET # ASSIGN BLOCKS 

POINT TO ASSIGN TABLE 

COMPARE LOGICAL NAMES 

BR IF WE FOUND BLOCK WE ARE LOOKING FOR 

POINT TO NEXT ASSIGN BLOCK 

LOOP IF MORE BLOCKS TO CHECK 

SIGNAL FAILURE 

SIGNAL SUCCESS 



i 

i 
i 
c 

I I 

I 



I 
i 
i 

i 
i 

4 
I 

i 
* 
1 
i 
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LOGASN — - Perform full logical device assignment 



3 








4 








5 








6 








7 








S 








9 








10 








U 








12 








13 








14 








15 








16 


013632 


010246 




17 


013634 


010446 




IS 








19 








20 








21 


013636 


011500 




22 


013640 


004767 


177726 


23 


013644 


103421 




24 








25 








26 








27 








28 


013646 


010504 




29 


013650 


016224 


OOOOOOG 


30 


013654 


016200 


OOOOOOG 


31 


013660 


001413 




32 


013662 


010024 




33 


013664 


016224 


0000020 


34 


013670 


016200 


OOOOOOG 


35 


013674 


001405 




36 


013676 


010024 




37 


013700 


016200 


OOOOOOG 


38 


013704 


001401 




39 


013706 


010014 




40 








41 








42 








43 


013710 


021567 


OOOOOOG 


44 


013714 


00 1 403 




45 


013716 


021567 


OOOOOOG 


46 


013722 


00 1 002 




47 


013724 


016715 


OOOOOOG 


■He! 

49 








50 








51 


013730 


012604 




52 


013732 


012602 




53 


013734 


000207 





. SBTTL LOOASN — Perform full logical device assignment 

LOGASN is called to perform a full logical device name assignment. 
The logical name associated with a file specification is translated 
into the corresponding physical device. The file name, extension, 
and sixe may also be translated if a file spec was specified with 
the? assignment of the logical name. 

I n p u t s : 
R5 = Pointer to 5 word block containing file spec < dev, f i le> f i le/ ext« size) 

Outputs : 
Filf? spec is updated to ha\/B physical device name and possibly 
altcjred file name. 



LOGASN: MOV 
MOV 



R2, -<SP) 
R4, -(SP) 



See if device name is in our assign table 



MOV 


(R5), RO 


CALL 


ASIMSRC 


BCS 


1$ 



; Get logical device name 

i See if name is in assign table 

; Br if name is not in assign table 



Found logical device name in the assign table. 
Translate to physical device. 



MOV 
MOV 
MOV 
BEQ 
MOV 
MOV 
MOV 
BB,Q 
MOV 
MOV 
BEQ 
MOV 



R5.- R4 i Get pointer to file spec buffer 

AT*DEV(R2), <R4)+i Put in physical device name 

AT*FIL(R2). RO iWas file name assigned? 

1* ; Br if not 

RO* <R4)+ ; Translate file name 

AT*FIL+2<R2)> <R4)+ 



AT*EXT(R2),R0 

1* 

RO, (R4) + 

AT*SIZ<R2), RO 

1* 

RO, (R4) 



Was file extension specified? 

Br if not 

Translate file extension 

Was file size specified? 

Br if not 

Translate file size 



Translate "DK" and "SY" to physical device names 



i 



2*: 



3$: 



CMP 


(R5>, R50SY 


BEQ 


2* 


CMP 


(R5), R50DK 


BNE 


3* 


MOV 


SYNAME, (R5) 


F i n i s h e d 




MOV 


(SP)+, R4 


MOV 


(SP)+, R2 


RETURN 





; Is device name "SY"? 

; Br if yes 

; Is device name "DK"7' 

; Br if not 

i Translate to physical device 



TSKMNa ■■ 


-- TSKMLJN Subrou 


tine s 


FORCED - 

i 
2 
3 


-- Force 


a 2-ch ar dev n 








4 








5 








6 








7 








8 


013736 


010346 




9 


013740 


010446 




10 


013742 


010546 




11 


013744 


011305 




12 


013746 


005004 




13 


013750 


071427 


000050 


14 


013754 


005705 




15 


013756 


001012 




16 


013760 


010405 




17 


013762 


005004 




IS 


013764 


071427 


000050 


19 


013770 


005704 




20 


013772 


001404 




21 


013774 


005705 




22 


013776 


001402 




23 


014000 


062713 


000036 


24 


014004 


012605 




25 


014006 


1 2604 




26 


014010 


012603 




27 


014012 


000207 
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. SBTTL FORCED -- force a 2-char dev name to unit O 

Inputs: R3 points to a RAD50 device name 



Outputs: If 
b lank* 



FOR CEO: 



9$: 



MOV 
MOV 
MOV 
MOV 
CI.R 
DIV 
TST 
ONE 
MOV 
CLR 
DIV 
TST 
BEO 
TST 
BEQ 
ADD 
MOV 
MOV 
MOV 
RETURN 



the 3rd char of the device name pointed to by R3 is 
then it iri chanqed to O 



R3, -(BP) 
R4, ~(SP) 
R5, "(SP) 
(R3), R5 
R4 

#50, R4 
R5 
9* 

R4, R5 
R4 

#50, R4 
R4 



9* 

R5 
9* 
#"-R 



0, (R3) 



MOVE CURRENT DEV NAME TO R5 

SET UP FOR DIVIDE 

SEPARATE INTO NAME AND UNIT 

WAS 3RD CHAR BLANK? 

RETURN IF NOT 

GET HIGH 2 CHARS 

SET UP FDR ANOTHER DIVIDE 

SEPARATE 1 8< 2 CHARS 

WAS CHAR 1 BLANK? 

EMPTY OR INVALID DEV NAME! 

WAS CHAR 2 BLANK? 

1-CHAR DEV NAME SHOULD BE INVALID??? 

FORCE TO UNIT O 



<SP)+, R5 
<SP)+, R4 
< SP ) +, R3 



t 

€ 
€ 



I 



•i-r-i.' luihin 
1 rjfMii't.j 



DEiADEV — Deassign physical device 



nonoay cii-uec-a/ .i.f:4j rage /' 



SBTTL DEADEV 



Deassign physical device 



H^ 








5 








6 








7 








8 








9 








10 


014014 


010246 




11 


014016 


010346 




12 


014020 


012702 


OOOOOOG 


13 


014024 


012703 


OOOOOOG 


14 


014030 


020062 


0000000 


15 


014034 


001004 




16 


014036 


005062 


OOOOOOG 


17 


014042 


005062 


OOOOOOQ 


IS 


014046 


062702 


OOOOOOG 


19 


014052 


077312 




20 


014054 


012603 




21 


014056 


012602 




22 


014060 


000207 





DEADEV is called to remove from the assign table all entries 
t=or logical device names that are assigned to a specified 



phiiBical device. 



I n f* u t s : 
RO == Name 



DEADEV: 



1$: 



of physical device. 



MOV 
MOV 
MOV 
MOV 
CMP 
BNE 
CLR 
CLR 
ADD 
SOB 
MOV 
MOV 
RETURN 



R2, -<SP) 
R3, - ( SP ) 
#ASNTBL, R2 
#MAXASN.. R3 
RO, AT*DEV<R2) 
2* 

AT*L0G(R2) 
AT*DEV(R2) 
#AT**SZ, R2 
R3, 1* 
(SP)+, R3 
(SP)+, R2 



iPoint to assign table 

.i Get # assign table entries 

i Is this entry for specified phys device? 

J Br if not 

; Clear logical device name 

; Clear physical device name 

jPoint to next assign entry 

; Loop if more to check 



fSKHN;i — 
IMSSRC -• 



3 

4 

5 

6 

7 

8 

9 
10 
11 
12 
13 

14 

15 

16 

17 
18 
19 
20 
21 



i aKnUN b u D r o u tines 
Search for program in 



l-tPiVHU VU£>. U4 Monday 
INSTALL table 
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€ 



23 
24 
25 
26 
27 
28 
29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 

45 

46 
47 
48 
49 

50 

51 
52 
53 
54 

55 

56 

57 



14062 
14064 
14066 
14070 



14072 
14076 
14102 
14104 
14106 
14112 



14116 
14122 
14126 
14132 
14134 
14140 
14144 
14150 
14154 
14156 
14160 
14162 
14164 
14166 
14170 
14174 
14200 



14202 
14204 



14206 
14214 
14216 



010246 
1 0346 
010446 
010546 



1 2702 
012703 
012022 
077302 
012705 
004767 



016705 
010567 
012700 
104375 
012702 
012703 
012700 
02 1 227 
00 1 402 
021213 
00 1 003 
022223 
077007 
000407 
062705 
020567 
103750 



000261 
000415 



026727 
001410 
016705 



000134' 
000004 



000134' 
177514 



0000000 
0000000 
0000000 

ooooooc 

000134' 

000004 

OOOOOOG 



OOOOOOG 
OOOOOOG 



. SBTTL INSSRC — Sc^srch for program in INSTALL table 

Search the INSTALL table for an entry corresponding to the program 
being started. 

Inputs: 
RO = Address of buffer with file specification. 

Outputs: 
C--flag cleared ==> f-ound entry for program. 
C-fiag set ==> No entry for program. 
IIBUF ~ Install sntr" for program if one is found. 



INSSRC; NOV 
MOV 
NOV 
MOV 



R2, " ( SP > 
R3> -(GP) 
R4, -(SP) 
R5, -<BP) 



Copy file specification to INSSPC and perform any assigns 



10*: 



MOV 


#INSSPC,R2 


MOV 


#4, R3 


MOV 


(R0)+, (R2)+ 


SOB 


R3, 10$ 


MOV 


#INSSPC>R5 


CALL 


LOGASN 



; Point to result buffer 
i Get # words to move 
; Copy the file spec 

.: Point to name 

; Perform full assignment 



Check next entry in INSTALL table 



MOV INSTBL, R5 

1*; MOV R5, INGADR 

MOV #INGEMT, RO 

EMT 375 

MOV #IIBUF+II*NAM, R2 

MOV #INSSPC,R3 

MOV #4, RO 

3$: CMP (R2),#WLDNAM 

BEO 7* 

CMP (R2)> (R3> 

BNE 2* 

7«: CMP <R2)+, (R3)f- 

SOB RO, 3* 

BR 4* 

2*: ADD #II$*S2,R5 

CMP R5, INSTBN 

BLO 1* 



Point to 1st entry in install table 

Set address of entry to get 

Point to EMT arg block 

Get the install entry 

Point to entry uie just got 

Point to target name 

# words to compare 

Wildcard in install entry? 

Br if yes 

Compare file specs 

Br if they don't match 

Advance both pointers 

Loop if more to compare 

We found the entry 

Point to next install entry 

Checked all entries?" 

Loop if more to check 



6'?: 



OOOOOOC OOOOOOG 
OOOOOOG 



4*: 



Cannot find entry for this program 

SEC i Signal failure on return 

BR 9* 

Found entry for program 

CMP IIBUF+II*NAM, #WLDNAM ils install device wild <"*")? 

BEQ 8* J Br if yes 

MOV RUNDEV, R5 i Get device spec for program 















TSKMN3 • 


— TSKMON aubrou 


tines 




INSSRC - 


— Search for pr 


ogram in 




58 


014222 


004767 


175370 




59 


014226 


103403 






60 


014230 


020467 


000000(5 




61 


014234 


00 1 762 






62 


1 4236 


000241 






63 
64 
65 










66 


014240 


012605 






67 


014242 


012604 






68 


014244 


012603 






69 


014246 


01 260P 






70 


014250 


000207 
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8*: 



9$: 



CALL 


CHKDEV 


BCB 


a* 


CMP 


R4> LDDEVX 


BEQ 


6* 


CLC 




F i n i G h e d 




MOV 


(SP)+, R5 


MOV 


(SP)+, R4 


MOV 


(SP)+, R3 


MOV 


(SP )+. p2 


RETURN 





J Convert device name to dev index number 

; Br if invalid device 

J Is program on a logical di&k? 

; Br if yes — Cannot be installed 

i Signal success on return 



TSKMN3 
LSTSPL 



— TSKMON Subroutines HaCKU v05. 04 Honciay 2l~Dec-S7 l.t:4j. Page Si 

— List pendinp spool files for a device 



1 
2 
3 
4 
15 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
IS 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 



. SBTTL LSTSPL 



List pending spool files for a device 



LSlSPL is called to display information about spool files pending 
for a specified spooled dpvire. 

I n p t.> 1 5 : 
Ri = Address of SDCB for device for which file info is to be printed. 



014252 010146 

014254 010246 

014256 010346 

014260 010446 

014262 010546 

014264 016102 

014270 001525 



0000000 



LSTSPL: 


MOV 


R 1 , - < SP ) 




MOV 


R2, - ( BP ) 




MOV 


R3, -<SP) 




MOV 


P4, -(SP ) 




MOV 


R5, -<SP) 




MOV 


SDFHD < R 1 > , R2 




BEQ 


9* 



; GET ADDRESS OF FIRST SFCB FOR THIS DEVICE 
iBR IF NO FILES PENDING FOR THIS DEVICE 



Print info about next SFCB for this device. 
Rl =^ Address of SDCB. 
R2 '-■- Address of SFCB. 

Move SFCF from kernel arva to TSKMON buffer <BLK0) 



014272 010267 163546 

014276 012767 OOOOOOG 163542 

014304 012700 000040' 

014310 104375 

014312 012702 OOOOOOG 



014316 132762 OOOOOOG OOOOOOG 
1 4324 00 1 504 



014326 016205 OOOOOOG 

014332 012703 000004 

014336 004767 171702 
014342 



1*: 



MOV 
MOV 
MOV 
EMT 
MOV 



R2. PEKADR i Set address of block in kernel 

#SFCBSZ, PEKSI.Z i Set size of data to get 

#PEKEMT> RO ; Point to EMT argument block 

375 ; Move SFCB from kernel to our buffer 

#BLKO, R2 i Point to buffer with SFCB we got 



See if 1st write has been done to this spool file. 



B I TB 
BEQ 



#SF*1ST, SFFLAG<R2}; HAS 1ST WRITE BEEN DONE? 



5* 



Print the file ID number 

MOV SFID<R2),R5 

MOV #4. , R3 

CALL PRTFIX 

.PRINT #SPACE2 

Print device name. 



014350 016100 OOOOOOG 
014354 004767 171204 



014360 012700 000040 

014364 132762 OOOOOOG OOOOOOG 

014372 001402 

014374 012700 000052 

014400 

014404 



014412 116205 OOOOOOG 



MOV 
CALL 



SDNAME<R1).. RO 
PRTR50 



i BR IF NOT 



i Get spool file ID number 
; Print 4 digits 
; Print ID value 
i Print 2 spaces 



;OET NAME OF SPOOLED DEVICE (RAD50) 
i PRINT THE DEVICE NAME 



Print a star if this file is being printed now. 



4^: 



MOV 

BITB 

BEG 4* 

MOV #'*, RO 

. TTYOUT 

. PRINT #SPACE2 



#' ,R0 i ASSUME FILE WOT BEING PRINTED 

#SF*BSY, SFFLAG(R2)i IS FILE BEING PRINTED NOW? 

;BR IF NOT 

; PRINT * 



Print user number 

MOVB SFUSER<R2), R5 



> GET USER INDEX # 






TSKnN3 - 


— f tetAi'iuiN ti u D r o u ■(-. 1 n e 5 


LSTSPL ■ 


— List 


p e n d i n c) 


spool fi 


58 


014416 


006205 




59 


014420 


012703 


000002 


60 


014424 


004767 


171614 


61 


014430 






62 








63 








64 








65 


014436 


016200 


OOOOOOG 


66 


014442 


004767 


171116 


67 


014446 


016200 


0000020 


68 


014452 


004767 


171106 


69 


014456 






70 








71 








72 








73 


014464 


010203 




74 


014466 


062703 


OOOOOOG 


75 


014472 


012704 


000006 


76 


014476 


1 1 2300 




77 


014500 






78 


014504 


077404 




79 


014506 






80 








81 








82 








S3 


014514 


016205 


OOOOOOG 


84 


014520 


012703 


000004 


85 


014524 


004767 


171514 


86 








87 








88 








89 


014530 






90 








91 








92 








93 


014536 


016202 


OOOOOOG 


94 


014542 


001253 




95 








96 








97 








98 


014544 


01260;> 




99 


014546 


012604 




100 


014550 


012603 




101 


014552 


012601' 




102 


014554 


012601 




103 


014556 


000207 





nAt;NU VUD. U4 Monday 2l-Dec"a7 11:41 
ies for r3 device 

ASR R 5 

MOV #2. . R3 

CALL PRTFIX 

.PRINT #SPACE2 



Print file name 



Page 81-1 



CONVERT TO SEQUENTIAL NUHBER 
PR INI 2 CHARS 
PRINT VALUE 



SFFILE(R2), f<0 
PRTR50 



MOV 
CALL 
MOV 
CALL 
PRINT #SPACE2 



;GET 1ST 3 CHARS OF FILE NAME <RAD50) 

; PRINT THEM 
SFFILE+2(R2), RO ; PRINT 2ND 3 CHARS 
PRTR50 



Print form name 



3*: 



MOV 


R2, R3 


ADD 


#SFFORM. R3 


MOV 


#6. , R4 


MOVB 


(R3)+, RO 


. TTYOUT 




SOB 


R4. 3* 


. PRINT 


#SPACE2 



POINT TO CELL WITH FORM NAME 
PRINT 6 CHARS 
GET NEXT CHAR OF NAME 
PRINT IT 



Print number of blocks in spool file 



MOV 
MOV 
CALL 



SFNMBL<R2).R5 
#4. , R3 
PRTFIX 



GET # BLOCKS IN SPOOL FILE 
PRINT 4 CHARS 
PRINT VALUE 



t?nd of print line 

.PRINT #CRLF 
See if there are mure spool files for this device. 



5$: 



'9^: 



MOV 


SFQLNK(R 


BNE 


1* 


F' i r) i s h e d 




MOV 


(SP)+, Rtj 


MOV 


(SP)+, R4 


MOV 


(SP)+, R3 


MCfV 


<SP)+, R2 


MOV 


(SP)+, Rl 


RETURN 





; CHAIN TO NEXT SFCB 
; BR IF MORE TO PRINT 



CHKDLM — See if char ii; a delimiter 



Monday 21-Dec-B7 11:41 Pafle 82 



. SBTTL CHKDLH 



See if char is a delimiter 



3 
4 








5 








& 








7 








8 








9 


014560 


120027 


000060 


10 


014564 


103422 




11 


014566 


120027 


000071 


12 


014572 


10142J 




13 


014574 


120027 


000141 


14 


1 4600 


103406 




15 


014602 


120027 


000172 


16 


014606 


101011 




17 


014610 


162700 


000040 


18 


014614 


000410 




19 


014616 


120027 


000101 


20 


014622 


103403 




21 


014624 


120027 


000132 


22 


014630 


101402 




23 








24 


014632 


000261 




25 


014634 


000207 




26 








27 


014636 


000241 




28 


014640 


000207 





CHKDLM IS CALLED TO SEE IF THE CHARACTER IN RO IS 

AN ALPHANUMERIC CHARACT£,-R. 

IF IT IS THE C-FLAG IS RESET ON RETURN. 

IF CHAR IS A DELIMITER THE C-FLAG IS SET ON RETURN. 

ALL REGISTERS ARE PRESERVA-D. 



; IS CHAR A DIGIT? 
; BR IF NOT 

BR IF DIGIT 

IS THIS A LOWER CASE LETTER? 

BR IF NOT 

LOWER CASE 1 

BR IF DELIMITER 

CONVERT LOWER-CASE TO UPPER CASE 

■> IS CHAR A LETTER? 
; BR IF NOT 

i BR IF LETTER 

.: SIGNAL DELIMITER 



CH\ 


<DLM: CMPB 




RO, #'0 




BLO 




1* 




CMPB 




RO, #'9 




BIOS 




2* 




CMPB 




RO, #141 




BLO 




3* 




CMPB 




RO, #172 




BHI 




1* 




SUB 




#40, RO 




BR 




2* 


3*. 


CMPB 




RO, #'A 




BLO 




1* 




CMPB 




RO, #'Z 




BLOS 




2* 


i 


CHARACTER 


IS 


A DELIMITER 


1^: 


SEC 








RETURN 




i 


CHARACTER 


IS 


ALPHANUMERIC 


2$: 


CLC 








RETURN 





TSKMNa 
CVTTAB 



i bKHUN buDroufines halku vus. U4 Monday 2l-Dec-Q7 iJ:4i ."age Hd 
Convert tab and FF chars to spaces 



1 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

14 

15 

16 

17 

18 

19 

20 

31 
nn 

23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 



014642 010346 

014644 112300 

014646 00141L> 

014650 120027 000011 

014654 001403 

014656 120027 000014 

014662 001370 

014664 112763 000040 177777 

014672 000764 



014674 012603 

014676 122327 000040 

014702 001775 

014704 005303 



014706 000207 



. SBTTL CVTTAB 



Convert tab and FF chars to spaces 



CVTTAB is called to convert tab and form-feed characters in a 
command line to space characters. After the conversion is done> 
leading space characters are skipped over. 

1 n p u 1 5 ; 
R3 = Address of start of asciz command line. 

Outputs: 
R3 = Pointer to first non-blank character in buffer. 
Command line has had tab and FF chars converted to spaces. 



CVTTAB: MOV 
1$: 



2$: 



MOV 


R3, -<SF) 


MOVB 


<R3)+, RO 


BEG 


4* 


CMPB 


RO, #TAB 


BEO 


2* 


CMPB 


RO, #FF 


BNE 


1* 


MOVB 


#' ,-l(R3) 


BF< 


1* 



i Get next character from command 

j Br if end of command 

i Is this a tab character 

5 Br if yes 

;l5 this a form-feed character? 

j Br if not 

.; Replace control character with space 



Finished converting tabs and Form-feeds to spaces. 
Wow skip over leading spaces. 



4i$ : MOV 


(SP)+, R3 


3«: CMPB 


<R3)+, #' 


BEG 


3* 


DEC 


R3 


; F i n i E h e d 




RETURN 





iOet pointer to start of command 
.:Skip leading spaces 

j Point to 1st non-blank character 



4 



TSKMN3 - 


— TSKMuN buDrout. mes 


CVTUC - 

1 
2 
3 


— Convert chars 


in com 








4 








5 








6 








7 








S 


014710 


010246 




9 


014712 


010302 




10 


014714 


112200 




11 


014716 


001413 




12 


1 4720 


120027 


000141 


13 


014724 


103773 




14 


014726 


120027 


000172 


15 


014732 


101370 




16 


014734 


162700 


000040 


17 


014740 


110062 


1 77777 


IS 


014744 


000763 




19 








20 








21 








22 


014746 


012602 




23 


014750 


000207 





41 Faqp '34 
upper case 

.SBTTL CVTUC - Convert chars in command line to upper case 

Convert all lower case characters in an asciz string to upper case. 

I n ji V t B : 
R3 - Pointer to ascix string to be converted. 



;GBt pointer to start of string 

> Get next char from string 

i Br if hit end of string 

.: Is thii5 a lower case letter? 

i Br if not 

; Br if not 

.i Convert letter to upper case 

j Store converted char back into string 



CVTUC: MOV 


R2> -(SP) 


MOV 


R3, R2 


1*: MOVB 


<R2)+, RO 


BEQ 


9* 


CMPB 


RO.- #141 


Bi,..0 


1* 


CMPB 


RO, #172 


B!-iI 


1* 


SUB 


#40, RO 


MOVB 


RO, -1(R2) 


BR 


1* 


; F i 11 i E- h e d 




9«i: MOV 


( SP ) +, R2 


RETURN 





€ 



f 
I 
c 
< 

i 
i 
i 
i 
< 
€ 
I 
< 
i 
i 
i 
i 
i 
i 
i 
I 



SKPSPC - 

1 
2 
3 
4 
5 
6 
7 

a 

9 
10 
11 

12 
13 
14 
15 

It! 

17 
18 
19 

20 

22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 

WW 

34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
4 b 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 



— I toKrtuM t) u D r o u Tines riMCKU 
- Skip over spaces in command 



VUO.V4 Honday 2i--Dec--87 1.1:41 Paqe S'3 
line 



14752 
14756 
14760 
14762 



122327 
00177L) 
005303 
000207 



000040 



14764 
14766 
14770 
14772 
14776 
15000 
1 5004 



15006 
15012 
15016 
15020 

1 5022 



010046 
1 1 2300 
001413 
120027 
00 1 403 
1 20027 
00 1 007 



004767 
122327 
00 1 773 
000241 
000401 



000040 
000054 



177740 
000054 



015024 000261 



1 5026 
1 5030 
1 5032 



005303 
012600 
000207 



SBTTL SKPSPC 



Skip over spaces in command line 



Subroutine to skip ovpr E>pates in a command line. 

Input B : 
R3 - F'ointer into com(nand .line. 

Output b: 
R3 ~ Pointer to next non-blank character. 



SKPSPC: CMPB <R3)+, # 

BF.Q SKPSPC 

DEC R3 
RETURN 



IS NEXT CHARACTER A SPACE? 

BR IF YES — SKIP IT 

BACKUP POINTER TO FIRST NON-BLANK CHAR 



KPDLM: 


MOV 


RO, -<SP) 




MOVB 


<R3)+, RO 




BEO 


2* 




CMPB 


RO, #BLANK 




BEQ 


1* 




CMPB 


RO. #COMMA 




BNE 


3* 



.SBTTL SKPDLM — Bkip delimiters in command line 

Subroutine to check for legal delimiters (spacers). comma> or end of line) 
and skip over in a command line. 

I n p u t B : 

><3 "-- Pointer to command line. 

Outputs: 

R3 = Pointer to next command input character. 

C-bit = clear: leqal dt-iimiter found <blank<s)f comma, end of line) 
set: no delimiter detected 



; Save reg i stei" 

i Oet next command character 

; Br if end of command hit 

i Chec k for space 

i Br if space found 

; Chec k for comma 

; Character not blank or comma 

Found legal delimiter - skip multiple spaces and commas. 

1^: CALL SKPSPC .iSkip multiple spaces 

iNext character a comma (following spaces?) 

; Br if comma found 
2$: CLC iFlag legal delimiter found 

> Finished 

Did not find a legal scjporator. 

3-$: SEC .:Flag no legal delimiter found 

; Use no instructions which alter the c-bit before the RETURN. 

10*: DE:-:c R3 ;Back up to last not blank or comma character 

MOV <SP)+, RO ; Restore register 
RETURN ^ and return 

SBTTL GETKCH — fte-t next char from command line 

GE'I KCH is called to get the next character from a command line. 

Lower case characters aT{> converted to upper-case before being returned. 



CALL 


SKPSPC 


CHPB 


(R3)+, #COMMA 


BEO 


1* 


CLC 




BR 


10* 



I 
i 
i 
I 
I 

i 
i 
i 
i 
i 

€ 
I 

< 

i 
f 

4 
i 
i 



TSKnN3 - 


-- 1 tonrn.,) 


■■\i :3 u D r o 1.1 


nines- 


GETKCH - 


- Get next char 


from c 


5S 








59 








60 








61 








62 








63 








64 








65 








66 


015034 


1 1 2300 




67 


015036 


120027 


000141 


68 


015042 


103405 




69 


015044 


120027 


000172 


70 


015050 


101002 




71 


015052 


162700 


000040 


72 


015056 


000207 
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1 n f * u 1 5 : 
R3 = Pointer to next character to be gotten. 

Output &: 
RO == Character gotten. 
R3 -" Updated to point to next character. 



GETKCH: MOVE 
CMPB 
BLO 
CMPB 
BHI 
SUB 

1*; RETURN 



(R3)+, RO 

RO, #141 

1* 

RO.- #172 

1* 

#40, RO 



i GET NEXT CHARACTER 

.: IS IT A LOWER CASE LETTER? 

i BR IF DEFINITELY NOT 

; CHECK UPPER RANGE 

i BR IF NOT LOWER CASE 

} CONVERT LOWER-CASE TO UPPER-CASE 
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DELSPC — Delete spaces 



1 
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from command line 



3 








4 








5 








6 








7 








8 








9 








10 








11 


1 5060 


010246 




12 


015062 


J 0346 




13 


015064 


010302 




14 


015066 


1 1 2300 




15 


015070 


001400 




16 


015072 


120027 


000040 


17 


015076 


00 1 773 




IS 


015100 


1 i 0022 




19 


015102 


000771 




20 


015104 


105012 




21 


015106 


012603 




22 


015110 


012602 




23 


015112 


000207 




24 








25 








26 








27 








28 








29 


015114 


004767 


1 77632 


30 


015120 


112300 




31 


015122 


120027 


000075 


32 


015126 


001407 




33 


015130 


120027 


000072 


34 


015134 


001404 




35 


015136 






36 


015146 


004767 


177600 


37 








38 








39 








40 


015152 


000207 





. BBTTL DELSPC — - Delete spaces from command line 

DELSPC is called to delete all space characters from a command line. 

Inputs: 
R3 - Address of start of asciz command line. 

Outputs: 
R3 = Address of start of command line that has been blank squeezed. 



GET NEXT CHAR FROM COMMAND LINE 

BR IF END OF COMMAND HIT 

IS THIS CHAR A SPACE? 

IF YES THEN SKIP OVER IT 

MOVE CHAR INTO NEW COMMAND LINE 

iPUT IN ASCIZ NULL AT END 



DELSPC : 


MOV 


R2> -(SP) 




MOV 


R3.. -<SP) 




MOV 


R3, R2 


1$: 


MOVE 


(R3)+,R0 




BEQ 


2* 




CMPB 


R0> #' 




BEG 


1* 




MOVB 


RO, <R2) + 




BR 


1* 


2« : 


CLRB 


<R2) 




MOV 


<SP)+, R3 




MOV 


(SP)+, R2 




RETURN 





. SBTTL CHKEQ — Checfe that next command character is equal sign 

Check to make sure the next character is an equal sign or a colon. 

Skip over any spaces 
Get next command character 
Is character equal sign? 
Br if yes 
Is it colon?" 
Br if yes 

Command syntax error 
1*: CALL SKPSPC iSkip over any spaces 



EQ: CALL 


SKPSPC 


MOVB 


<R3)+, RO 


CMPB 


RO, #•' = 


BE« 


1* 


CMPB 


R0,#': 


BEQ 


1* 


FAB OR T 


#EM*CSE 


CALL 


SKPSPC 


F i n i s h e d 




RETURN 
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CKPRIV — Check for OPER privilegf 



1 
2 

3 

4 



. SBTTL CKPRIV — Check for OPER privilege 
Determine if the current user has OPER privilege. 



5 015154 032767 OOOOOOG OOOOOOG CKPRIV: BIT #PO*GPR. PRIVCO ; Does user have OPER privilege? 

6 015162 001004 BNE 9« ; Br if yes 

7 015164 FABORT #EM*OPR ; Operator privilege required 
S 015174 000207 9*: RETURN 

9 
10 .SBTTL CKSYPV -- Check for SYSPRV privilege 

1 1 ; 

13 ; Chpt k for SYSPRU privilrtif. 

13 ; 

14 015176 032767 OOOOOOG OOOOOOG CKSYPV: BIT #P0*SYS.. PR I VCO .; Does user have SYSPRV privilege? 

15 015204 001004 BNE 9* ; Br if yes 

16 015206 FABORT #EM«SFH 

17 015216 000207 9^: RETURN 
18 

19 .SBTTL CKTERH — Check for TERMINAL privilege 

20 i 

21 .: Check to see if the ui>eT has TERMINAL privilege. 



23 015220 032767 OOOOOOG OOOOOOG CKTERM: BII 

24 015226 001004 

25 015230 

26 015240 000207 9*: 



#P2*TRM. PRIVC2 ; Does user have TERMINAL privilege? 

BNE 9* i Br if yes 

FABORT #EM*TPR i Terminal privilege required 
RETURN 



28 
29 
30 
31 
32 

33 015242 010346 

34 015244 012703 177777G 

35 015250 020327 000017 

36 015254 001404 

37 015256 

38 015266 005303 

39 015270 002367 

40 015272 

41 015300 012603 

42 015302 000207 

43 000001 
Errors detected: 



SBTTL PRGALL 



PuT^e all channels for job 



PRGALL is called to purge all channels for the job. 

Channel 17 is not purged since it is used for TSKMON overlays. 



PRGALL: MOV 
MOV 



2*: 



3^: 



R3. -<EJP) 
#NUCHN--1, R3 

CMP R3. #17 

BEG 3* 

. PURGE R3 

DEC R3 

BGE 2* 

, PURGE #RUNCHN 

MOV <SP)+, R3 

RETURN 

. END 



; GET # OF LAST CHANNEL TO PURGE 
; Don't purge channel 17 

i PURGE ALL OF USER'S CHANNELS 



j Purqe channel used to start SAV files 



*** Assembler statist:). ts 



Work file reads 
Work file writes 
Size of work file 
Size of core pool 
Operating system 







11869 Words 

17920 Words 

RT-11 



( 47 Pages) 
< 70 Pages) 



Elapsed time: 00: 02: IS. 2'3 

DK: TSKMN3, LP: TSKMN3=DK: TSKMN3. NAC/C/N: SYM 



!bKNnN3 - 


- I SKnuiN 


3 U D r O 11 


Cross re 


fevBTtcs 


table ( 


$if3TLG 


1 -46 




*CARUP 


1-5^ 




1iCX;LRN 


1 - 60 




*CFABT 


1-74 


22-;;>B 


*CFALL 


1-ai 


2 1 -24 


$CFCCL 


1-81 


21-9 


$CFDCC 


1-81 


22-30 


*CFKIL 


1-66 


23-19 


*CFOPN 


1-87 


20-9 


*CFSOT 


1-79 


21-24 


fCLTST 


.1 -70 




fCTRLC 


1-73 




*CTRLO 


1 "2'^'' 




*CTRLS 


1-65 




fDEAD 


1-124 




*DEFER 


1-92 




*DETCH 


1-63 




fDIBOL 


1-46 




*DILUP 


1 -77 




^DISCN 


1-64 




*DOOFF 


1-83 




*DUPRN 


1-78 




*ECHO 


1-80 




*EMTTR 


1-69 




*FORM 


1-79 




*FORMO 


1-ei 




*HITTY 


1-35 




*INCOR 


1-96 




*INDAB 


1-67 


56-47 


*INDDF 


1-123 




*INDRN 


1-123 


S- :i 6 


$.TNIT 


1-124 




*1NKMN 


1 -73 




*KED 


1-96 




*KINIT 


1-31 


46-12 


*LC 


1 -SO 




*MLOCK 


1-52 




$NOIN 


1-35 


21-2;. 


*MOVLN 


1-42 


9-13 


$NOWIN 


1-24 


S-46 


*iMOWTT 


1-35 




*NTGCC 


1-57 


22-29 


*PAGE 


1-80 




$PHONE 


1-124 




*PRGLK 


1-61 




*aTSET 


1-101 


20-19 


*QUIET 


1-93 


20-2. i 


*SCCA 


1-24 


8-39 


«SCOPE 


i~eo 




*SiMWTT 


1-121 




liSPLJB 


1-65 




*SUCF 


1-36 


2 1 -26 


*TAB 


1-79 




*TAPE 


1-119 




*TECO 


1-101 




$"fTGAG 


1-87 
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23-19 

23-27 

20-77 21-16 21-24 21-81 



23- 



49-14 



9- 


•14 


e 


.49 


23- 


-26 



8-4r 
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*UCLCF 


i-8S 
























*UCLRIM 


t ~R^ 
























*VNOTT 


1--28 
























*VTESC 


1-56 
























*W1LD 


1-102 
























. . . Vi 


15-53 


15-57 


15-61 


1 5-68 


19-36 


19-36 


1 9-36 


19-41 


19-41 


19-44 


19-44 


19-48 




19-48 


19-48 


19-52 


19-52 


19-53 


19-53 


20-32 


20-32 


21-19 


21-19 


21-74 


21-74 




21-77 


21-77 


23-36 


23--39 


27-19 


27-19 


27 -27 


27-27 


31-13 


32-25 


36-33 


37-26 




42-19 


44-29 


45-10 


45-26 


45-29 


45-42 


46-20 


46-23 


49-30 


49-38 


49-41 


50-14 




50-23 


50-25 


50-29 


50-33 


51-40 


51-42 


52 27 


52-32 


52-34 


53-26 


53-32 


53-33 




53-34 


53-3 f' 


54-10 


54-21 


54-23 


54-43 


54-45 


56-6 


56-7 


56-18 


56-19 


58-59 




66-57 


69-30 


69-30 


69-30 


69-38 


69-38 


81-39 


81-52 


81-53 


81-61 


81-69 


81-77 




81-79 


81-89 


87-37 


87 40 


















. . . V2 


19-36 


19-36 


19-36# 


19-36# 


19-41 


19-41 


19-41# 


19-41# 


19-44 


19-44# 


19-48 


19-48 




1 9-48# 


i9-4S# 


19-52 


19-52 


19-52# 


19-52# 


19-53 


19-53 


19-53# 


19-53# 


20-32 


20-32 




20-32# 


20-32# 


21-19 


21-19# 


21-74 


21-74 


21-74# 


21-74# 


21-77 


21-77 


21-77# 


21-77# 




27-19 


27-19 


27-19# 


27-19# 


27-27 


27-27# 


69-30 


69-30 


69-30# 


69-30# 


69-38 


69-38 




69-3S# 


69-3a# 


87-37 


S7-37# 


87-40 


87-4041 














ABRTAD 


1 -23 
























ABRTCD 


1--2S 
























ABRTCF 


1-131 


22-a# 


56-46 




















ACRDEC 


1-139 


2S~i4# 


30-16 




















ACRFIL 


1-138 


58-17# 






















ACRFN 


1-131 


57-14# 






















ACROCT 


1-141 


29~i4# 






















ACRPRV 


1-46 


5-1 4# 


1 3-22 




















ACRSPD 


1-140 


30-i.2¥, 






















ACRSTR 


1-27 


33-68 


34-14# 




















ACRTXT 


1-26 


33~14# 






















ADLDAC 


69-65 


71-10# 






















ADM3A 


1-115 


46-37 






















ADM3FL 


1-116 
























ADM3N0 


1-117 
























AF*CCA 


1-24 


S-40 






















AF^NPW 


1-24 


8-47 






















AF-CF 


I ••-24 


S-25«- 


8-38 


20 42 


21--62-K- 
















ALCDEV 


1-50 


1 -60 


59-11* 


65-30* 


66-16-K- 
















ALDBLK 


1-154 
























ALDEX 


1-153 


1 -■ J 54 






















AiFN 


1-165 
























AMBOPT 


1-139 


12-50 






















ASDEX 


1-136 
























ASKLNM 


1-135 
























ASNEND 


1-78 
























ASNHDl 


1-148 
























ASWHD2 


1-143 
























ASiMOVF 


i 161 


73 --i '9 






















ASNSRC 


1-169 


62-22 


73-13 


73-21 


73-27 


76-1 3# 


77-22 












ASNTBL 


1-77 


76- 1 5 


79-12 




















AT**SZ 


1-75 


76-18 


79-18 




















AT*DEV 


1-75 


77-29 


79-14 


79-1 7-» 


















AT*EXT 


1-75 


77-34 






















AT$FIL 


1-75 


77-30 


77-33 




















AT^LOG 


1-75 


76- i 6 


79-16i> 




















AT*3IZ 


i-75 


7-7„3'y 






















AUTHFN 


1 - 1 S8 
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BADBOT 


1-167 


19-i:>0 












BADCMD 


1-135 














BADPMT 


1-142 














BADPRI 


1-142 














BADSAV 


1-135 














BASMAP 


1-110 














BDFNAM 


1-138 


57-4,'. 












BDLGOP 


1-143 














BDLIN 


1-156 














BtLL 


1-176# 














BLANK 


1-1 75# 


15-61 


85-33 










BLKO 


1-134 


4-30 


19-41 


19-43 


33-36 


33-62 


34-35 


BLKWDS 


1-1S0# 














BDTCSR 


1-72 


19-43fi- 












BOTDEV 


1 -72 


1 9-6 


19--10 


19-28* 


19-48 






BOTEMT 


1-167 


19-50 












BOTHAN 


4-54# 


19-12& 


19-24-15- 


19-34* 


19-36 






BOTUNI 


1-72 


19-13* 


19-29):- 










C. CSW 


1-S4 


69-39 


69-50 










C. DEVQ 


1-84 


69-42 












C. SBLK 


1~S4 


69-45 












CALUCL 


1-147 














CCLNAM 


1-162 














CCLSAV 


1-68 














CCSPRV 


1-43 


7-'m 












CD**SZ 


i-es 


59-47 


63-44 










CD**UB 


1-85 


59-34 


64-26 










CD*BAS 


1-85 


60- IB 


63-42 










CD*DVU 


1-85 


59-20 


60-16 


60-28 


63--40 






CD*JOB 


1-85 


59-33 


61-18 


64-25 








CD*NAM 


1-85 














CD*TOP 


1-101 














CDBUF 


1-45 


59-20 


59-33 


60-16 


60-18 


60-28 


61-18 


CDGADR 


1-45 


67-1 3 i^ 












CDGEHT 


1-45 


67-14 












CDGET 


1-45 


59-19 


63-39 


67-1 3# 








CDJFLG 


59-22 


6i~13# 


64-19 










CDPADR 


1-45 


67~2B*s- 












CDPEHT 


1-45 


67-29 












CDPUT 


1-45 


59-32 


67~28# 










CF*IND 


1-125 














CF*QUT 


1-125 














CF2DEP 


1-167 


20-9R 












CFABLV 


1-126 














CFACFL 


1-26 


24-- 14 


24-38 










CFBLK 


1-93 


20-34 


20-85* 


21-72* 


21 •77 






CFBUF 


1-68 


20-83 


21-77 


25-22 


25-41 






CFCHAN 


1--92 


20-32 


20-32 


21-19 


21-19 


21-74 


21 74 


CFEND 


1-6S 














CFHOLD 


1-100 


21-15i^ 












CFIND 


1-83 


20-14)f 


20-17* 


20-46 


20-47* 


21-14 


21-54* 


CFLFL4 


1-8S 


20- 1 8 


21-56 










CFNEST 


1-86 


20-7tJi>- 


21-10 


21-21 


21 SO* 


22-17 




CFDVFL 


20-29 


20-57 


20 --70 


20--9a# 








CFPNT 


1-93 


8-14 


20-15 


20-35 


21-12 


22-19 


23-15 


CFSEND 


1-07 


20-28 


20-56 


20-69 
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CFSP 


1--87 


20--27 


20-76 iJ 


21-35 


21 ■■■79* 




CFSPND 
CFSQEZ 
CFSTK 


1-99 
1-33 
1-31 


22- 1 
25-16» 


22-1 3<J 


23-11 


23- -14* 




CFSTOP 


i--26 


21-27 


24 -5# 






1 


CFSTRT 


1-26 


20-84 


21-71 


22-12 


23-13 


1 


CFSTS 


1--125 












CHAIN 

CHKALC 

CHKCLU 


1-73 

1 -30 
1-26 


66-.t0# 
75-144? 










CHKDEV 


1-162 


26-24 


62-14# 


63-20 


66-21 




CHKDLM 


1-152 


35-61 


57-26 


82-9# 






CHKEQ 


1-43 


13-18 


S6-29# 






1 


CHKMNT 
CHKMTX 
CHKTTD 


1-137 
1-137 

1 - 1 56 
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CINDAT 
CINFLG 
CKACOJ 
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CKLDAC 
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1 


CKSYPV 
CKTERM 


1-141 
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87-1 4 # 
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CL*XLN 


1 -27 


65-15 
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CLDEVX 


1-92 


66-48 










CLRPRV 


1 -43 


5-19 


6-8# 








CMDBUF 


1-130 


1-147 










CNDCCL 

COAD 

COAF 


1-162 
1-153 
1-166 


1-154 










COAL 
COL 00 


1-153 
1-147 


1-154 
50-25 










COMMA 


1-179# 


15-53 


85-35 


85-41 






CONFIG 


1-82 












CORUSR 


1-29 


8-13 


9-9 


16-17 


16--36 




CPUAH 


1-147 
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51-72* 


54-10 


54 11 




CPUAL 

CPUMSG 

CR 


1-147 
1-168 
1-174# 
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50-29 


51-7 H^ 


54-12 






CRLF 
CS*RO!M 


1-142 
1-55 
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69-50 


50-33 


54-45 
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CSHDEV 


1-77 


59-17 
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CSHDVN 

CSHHD 

CSIMSl 


1-77 
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CSIMS4 
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CTRLTT 
CURMTX 
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1-152 












CURPRM 
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20-49 
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CVDVNM 
CVTTAB 
CVTUC 


1-149 
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CXTBAS 


1-76 










CXTPAG 


1-54 










CXTRMN 
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24-13 
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CXTWD5 
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DATTIH 


1 -33 


54-38« 








DCCRD 
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DCCWR 
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DCTRD 


1-105 










DCTWR 


1-105 










DEADEV 


1-137 


79-10# 








DELSPC 
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DETARG 


1-166 










DETHD 


1 - 1 66 










DETTXT 


1-145 










DEVHDl 


1-148 










DEVIDL 


1-153 


i-i\yj 


1-154 






DEVUNT 


1-140 










DFJMEH 


1-31 










DIABFL 


1-93 










DIABLO 


1-114 


46-40 








DIABNO 


1-94 










DIV32 


36-23 


40-l4# 








DIVIDE 


1-146 

'J4~ie 


39-S# 


50-20 


51-23 


51 29 


DIVSOR 


1-159 


40-22 


40-25 


40-27 


40 29 


DviABMS 


1-157 










DKSAV 


1-130 










DLCEMT 


1-50 


59-12 








DLLDAC 


69- 1 9 


72-9# 








DLMSG 


1-157 










DLTXT 


1 - 1 4^^ 










DMTALL 


1 1 57 


59- 5« 








DM7ARG 


1-136 


60-34 


60-25 






DMT SUB 


1-162 


59-4 :i 


60-10# 






DOASGN 


1-59 


73-9# 








DOSTOP 


1-158 


1 9-6# 








DZTXT 


1-164 










EDIT 


1 -46 










EDTFIL 


1-150 


47~14# 








EDTR50 


47-20 


47-27 


47-30 


47-37 


48-14 


EM*CAJ 


1-39 


16-58 








EM*CSE 


1 — 4'l 


5-46 


86-35 






EM$DAA 


i-60 


66 --39 








EM*DIU 


1-60 


66-55 








EH*ENH 


1-''I9 


26-70 








EM*IOV 


1-49 


29-65 








EM$IST 


1-28 


33-73 


34-70 






EM*ISV 


1—19 


30-37 








EM$OPR 


1-38 


87-7 








EMfSPR 


1-38 


87-16 








EM*TPR 


1 -3S 


S7-25 








ERRLOC 


1-30 


66-35 


66 37 






ERRSEV 


1-102 


56-44 








FC$CDX 


1-129 










FCfLNK 


1-129 










FD$NAM 


1-129 











51-34 51-54 52-15 52-17 52-19 54-14 54-16 
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table <CREF 
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FF 


l-i78fi 


55-31 


83-19 
















FILNAM 


1-131 


1 - 1 :jp 


57-1 4« 


57-15* 


57-16* 


57-23«- 


57-30* 


57- 


-32* 




FIXPRV 


1-43 


e-3A 


9-7# 
















FKILL 


1-131 
73-29 


5-46 
86-35 


12-50 
87-7 


12-51 
87-16 


19-50 
87 25 


20-98 


28-70 


29- 


-65 




FOR CEO 


1-169 


78-B« 


















FPRINT 


1-131 


16-58 


27-21 


56-6# 


56-29 


57-46 


66-39 


66- 


-55 




FSTDL 


1-63 




















GAGMSG 


1-156 




















GENTOP 


1 -72 




















GETKCH 


•!-50 


S5~66:!l 


















GRTl 


1 - 1 1 1 




















GTRD50 


1-136 


12-21 


35-1 0« 


57-18 


57 40 












H. CSR 


1-157 


19-43 


















HANBSY 


1-141 




















HANCHN 


l-i81# 




















HANENT 


1-51 




















HANIDX 


1 - 1 40 




















HANS I Z 


1- 151 




















HAZEL 


1-52 


46-36 


















HAZLFL 


1-52 




















HAZLNO 


1-52 




















HI MAP 


1-110 




















HIPRI 


1-142 




















HNBUF 


1-140 




















HUPARG 


1-16.1 




















Il^fSZ 


1 -25 


30-44 


















II$NAM 


1-25 


80-34 


80-55 
















IIBUF 


1-25 


S0--34 


80-55 
















ILLCMD 


1-137 




















iLSW2 


1-5S 




















IN$ACT 


1-123 


8-18 


20-12 


22-21 














IN$CMD 


1-123 




















INfCNT 


1-123 


8-18 


















INDABT 


1-126 


23-6# 


56-49 
















INDACT 


1-133 




















INDCOL 


15-16# 


15-50 


1 5-84# 
















INDERR 


1-74 


56-20 1> 


56-42* 
















INDRDB 


4-34# 


23--3i:'i^ 


23-36 


23-3S* 


23 39 












INDSAV 


1-123 




















INDSTA 


1-74 


8-18 


20-12 


20-14 


20-17 


20-47 


20-93-ti- 


21- 


-14* 




INFOMT 


1-137 




















INGADR 


1-25 


80-31 «• 


















INGEMT 


1-25 


80-3;;' 


















INSSPC 


4~55# 


80-21 


80-25 


30-35 














INSSRC 


1-169 


ao-i'U 


















INSTBL 


1--25 


80-30 


















IIMSTBN 


1-25 


80-45 


















INVDAT 


1-166 




















INVDEV 


1-165 




















INVEC 


1-124 




















INVLDM 


1-161 




















INVLDN 
INVOPT 
IWVTIM 


1-138 
1-131 

1-157 


1-137 


1-152 


12-51 














lOABFL 


1-29 
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ITRMTP 

JCXPGS 

JCXSMS 

JSTKND 

JSWLOC 

1<.5P. 

KBMSG 

KBTX 

KCSIBF 

KED 

KEYBUF 

KEYEWD 

KILEMT 

KL3CLR 

KL4CLR 

KMFTXT 

KMNBAS 

KMNCHN 

KMNERR 

KMNHI 

KMNNAM 

KMNPGS 

KMNSTK 

KMNSTR 

KMNTOP 

KMPRMT 

KMSTK 

KUSECK 

L 



LAJ.20 

LA12FL 

LA12NQ 

LA36 

LA36FL 

LA36N0 

LACTIV 

LAFSIZ 

LCBIT 

LCOL 

LCONTM 

LCPUHJ 

LCPULO 

LDiSRON 

LDBASE 

LDCLEN 

LDDEVX 



1-125 
1-110 
1-164 
1-71 

1--30 

1-46 

1 - 1 46 

1 - 1 50 

1-135 

1-46 

1-168 

1-168 

i~158 

1-61 

1--95 

1-120 
1-68 
56-S 
1-53 
1-162 
1-54 
1 - 54 
1-54 
1-54 
1-106 
1-169 
1-49 

3-18 
3-24 

3-30 
3-36 
3-42 
3-4S 
3-54 
3-60 
3-66 
3-72 
1-11 4 
1 - 1 1 5 
1-1 IS 
1-11 4 
1-94 
1-94 
1-55 
■58 
114 



46-14 



;:■/ 
65 



1- 

1- 

1- 

1-- 

i-65 

1-65 

1-90 

1-91 

1-33 

1-92 



58-50 

55-38 
55-64 



Otl-v-l 



56-31 



56-3(i 
66— v.*! J 
3- 1 2# 
3-18# 
3-24# 
3-30# 
3~36# 
3-42# 
3-4 8# 
3~54# 
3~60# 
3-66# 
3~72« 
46- (iV 



46-38 



1 - .1 1 

50-16 
50-30 
50- 3. i 



69 



-52 



26-45 
6S-6# 
26-30 



58-52 
55-80 



56-414! 



3-13 
3-19 
3-25 
3-31 
3-37 
3-43 
3-49 
— 55 
3-61 
3-67 
3-73 



71 ■-39 
60-18 

62-77 



58-59 
55-89 



3-13# 
3-19# 
3~25# 
3-3 1# 
3-37# 
3-43# 
3-4 9# 
3-55# 
3-6 1# 
3-67# 
3-73# 



63-29 



3-14 
3-20 
3-26 
3 32 

3-3a 

3-44 
3-50 
3-56 
3-62 
3-68 
3-74 



3-1 4# 
3-20« 
3-26# 

lJ -'»,JiSL'lT 

3-38# 
3-4 4 # 

3-50# 
3-56# 
3-62# 
3-68# 
3-74# 



69-45* 



69-61 
69-57 



3-15 
3-21 
3-27 
3-33 
3-39 
3-45 
3-51 
3-57 
3 —63 
3-69 
3-75 



69-61* 
70 23 



3-15# 
3-2 1# 
3-27# 
3-33# 
3-39# 
3-4 5# 
3-51# 
3~57# 
3-63# 
3-69« 
3-7 5# 



3-16 
3-22 
3-28 
3-34 
3-40 
3-46 
3-52 
3-58 
3-64 
3-70 



3-1 6# 
3~22# 
3-28# 
3-34# 
3-40# 
3-46# 
3~52# 
3-5B# 
3-64# 
3-70# 



3-17 
3-23 
3-29 
3-35 
3-41 
3-47 
3-53 
3-59 
3-65 
3-71 



3-17# 
3-23# 
3-29# 
3-35# 
3-4 1# 
3~47# 
3-53# 
3-59# 
3-65# 
3-7 1# 



71-31 



80-60 
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LDFLAG 


1 --9 1 


69--!7r*»;- 


71 


•39 


LDMNT 


1-34 


68-32 


69- 


-i4# 


LDNAM 


1--135 








LDNAME 


1-91 


68-19 


69 


-26 


LDOPHD 


1-143 








LDPDEV 


1-91 


26-44 


60- 


-16 


LDSIZE 


1-91 


26-47 


69 


-33+:" 


LF 


1--:173# 








LFfOPN 


1 - •; 28 


26- .U.i 


27 


-6 


LF*WRT 


1-128 








LFWLIM 


1-58 








LGOVER 


1-167 


27-21 






LICTXT 


1-111 








UNBUF 


1-53 








1. INC NT 


1-55 








L INCUR 


1-53 








LINFRE 


1-157 








LINNXT 


1-53 








LJNPNT 


1-55 








LJSW 


1-71 








LMXLN 


1-124 








LMXNUM 


1-122 








LMXPRM 


1-125 








LNBLKS 


1-76 








LNMAP 


1-82 








LNPRIM 


1-S2 


16-37 


16 


-37 


L.NSBLK 


1-77 








LNSPAC 


1-86 








LOCKTX 


1-146 








LOGASN 


1-138 


77-16# 


SO 


-26 


LOGBAS 


1-59 


26-50 


26- 


-52 


LOGBLK 


1-127 


27-19 






LOGBUF 


1-127 


27-16 


27- 


-19 


LOGCHK 


1-59 


26-1 1# 






LOGCHN 


1-127 


27-19 


27- 


-19 


LOGCLS 


1-142 


26-59 


27- 


-5# 


LOGDVU 


1-59 


26-37 


26- 


-40 


LOGFLG 


1-127 


26-18 


27- 


-6 


LOGPTR 


1-127 


27-i.i 


27- 


-25 >f 


LOMAP 


1-110 








LOTBUF 


1-56 








LOTNXT 


1-56 








LDTPNT 


1-56 








LOTS I Z 


1-57 








LOTSPC 


1-57 








LPARNT 


1-35 


1 6-39 






LPRGl 


1 - i 1 :> 








LPRG2 


1-112 








LPROG 


1-64 


16 ---51 


16" 


-51 


LPROJ 


1 - 64 


16-44 


16- 


■44 


LRBFIL 


1-83 








LRDTIM 


1-55 








LSCCA 


1-79 








LSECPT 


1-69 








LSTACT 


1-53 








LSI ATE 


1-108 









-81 63-23 68-36 69-4 H^ 69-44*- 69-60 69-60* 69-74* 






27-27 



27-26* 



49-42 
49-36 
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LSTDL 

LSTliX 

LSTPL 

LSTPRM 

LSTSL 

LSTSPL 

LSUCF 

LSW 

LSWll 

LSW2 

LSW2S 

LSW3 

LSW4 

LSW 5 

LSW6 

LSW7 

LSW9 

LTRMTP 

LTGCriD 

LUNAME 

LWINDO 

MAXASN 

MAXAVL 

MAX MEM 

MAXMTX 

MAX SEC 

MDT 

MINTIM 

MISSEQ 

MNTARG 

MNTDEV 

MNTFUL 

MNTTXT 

MONAR 1 

M0iMAR2 

MONHD 

MONTAB 

MONVEC 

MSGBUF 

MSGEND 

MTOPHD 

MUL32 

MXCSR 

MXDTR 

MXJADR 

MXJMEM 

MXPRMT 

MXVEC 

NAM TOP 

NARGS 



1 - 63 

1.-122 

i-:L03 

1-99 

1 - 1 OH 

1 - 60 
1-29 
1-24 
l-~'7'3 
! -42 
1-78 
1-95 
22-~30-fr 
1-61 
1-121 
1-125 
1-52 
1-115 
i - n/, 
1-64 
1-24 
1-74 
1-140 
1 -30 
1 - 1 52 
1 -69 
1-52 
1 69 
1-141 
1 - 1 6 1 
1 - 1 36 
1-138 



1 1 63 

1 - 1 5 1 
:i • ■ 1 5 .! 
1-151 
1 - 1 68 
1-126 
1 — 1 56 
1 --l 56 
1-137 
1-166 
1-122 
1-122 

i -31 

1-106 

1-124 

1-111 

3-1 1# 

3-15 

3-19 

3-23 

3-27 

fcj 3 1 
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1 6-22 

20-63 

Sl--9t' 

46-12 
8-4 6 1:- 

9-13- 

9- 1 ^i * 

21-2L<)i' 

20-9 

23-27 ^^ 

S-16 
22-; '(^t 
56-47 
21~26fi- 
46-1 i 

49-27 

76-14 



50-15 

69-39 
60~33-K- 



53-31 



36-19 



3-12 
3 — Iv's 
3-20 
3-24 
3-2B 
3-:i2 



20-89 



49-14 
8-49 K- 
9-21 tJ 
9-22+^ 

20-lS-fi- 

8-39 1;- 
23-1 9 !:• 



79-13 



68-24* 



41-14*1 



3-12 
3-16 
3-20 
3-24 

3-28 
3-32 



21-41 



20-19 

20-21 -ft 20-44 20-77i«- 21 -9k- 

8-42» 23 25-K- 

23-26*- 



68-38* 



51-62 



3-- 12 
3-16 
3-20 
3-24 
3-2S 
3-32 



tl~16 



21-24» 21-57* 21-60# 21-81* 



• 1 3 
-17 
■21 
•25 
•29 
•33 



3 13 

3-17 
3-21 
3-25 
3-29 
3 33 



i ■ 3 ;3 

3-17 
3-21 

3-25 
3 ■29 

'!'-33 



3- 1 4 
3-18 
3-22 
3-26 
3-30 
3-34 



3^ 


-14 


3- 


-18 


3- 


-22 


3 


-26 


3 


-30 


3- 


-34 



3-14 
3-18 
3-22 

3-30 
3-34 



3-15 
3-19 
3-23 
3-27 
3-31 
3-35 



3-15 
3-19 
3-23 
3-27 
3-31 
3-35 
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3....37 2~:V/ 3-37 3-3B 3 -38 3-38 3-39 3-39 

3_:^9 3-40 3--40 3-40 3 41 3-4.1 3-41 3-42 3-42 3-42 3-43 3-43 

3-43 3-44 3-44 3-44 3-45 3-45 3-45 3-46 3-46 3-46 3-47 3-47 

3-47 3-4B 3-48 3-4S 3-49 3-49 3-49 3-50 3-50 3-50 3-51 3-51 



3- 


-40 


3- 


-44 


3- 


-4B 


3- 


;;;;:' 


3- 


-;>6 


3- 


-60 


3- 


-64 


3- 


-6B 


3- 


-y;,' 



3-51 3-;^;' 3-52 3-52 3-53 3-1.3 3--53 3~54 3-54 3-54 3-55 3-55 
3-55 3~;.>6 3-56 3-56 3-57 3-57 3-57 3-58 3 58 3-58 3-59 3-59 



3 


-36 




■40 


3- 


-44 


3- 


-48 


3- 


-52 


3 


■56 


3- 


"60 


3- 


-64 


3- 


•6B 


3- 


-72 


28- 


-29* 



3- 


-36 


3- 


•40 


3- 


•44 


3- 


•48 


3- 


-52 


3- 


-56 


3- 


-60 


3- 


-64 


3- 


-68 



3 


-38 


3- 


-42 


3- 


-46 


3- 


-50 


3^ 


-54 


3 


■58 


3- 


-62 


3- 


-66 


3 


-70 


3- 


-74 



3-59 3-60 3-60 3-60 3-61 3-61 3-61 3-62 3-62 3-62 3-63 3-63 
3-63 3-64 3-64 3-64 3-65 3-65 3-65 3-66 3-66 3-66 3-67 3-67 
3-67 3-6B 3-6B 3-68 3-69 3-69 3-69 3-70 3-70 3-70 3-71 3-71 
3-71 3-7;' 3-72 3-72 3 73 3-73 3-73 3-74 3-74 3-74 3-75 3-75 

3-75 

NAT XT 1-144 

NEGFLG 4-59# 28-26-^> 28-29*-r 28-62 29-26-1^ 29-29^f^ 29-57 

NEWJSW 1-71 

NFRESB 1-97 

NINTXT 1-144 

NLINES 1-S4 

NOCCL 1-143 

NOCIN 1-135 

NDDAT 1-149 

NDFIL 1-147 1~.U'5 

NOFLAG 1-137 

WOFRDL 1-166 

NOIND 1-141 

NOKMON 1-162 

NDLDMT 1-149 

NONEMS 1-149 

NOOPTT 1-155 

NOPMON 1-151 

WOPRG 1-131 l-:l3f, 

NOSTRT 1-134 

NOTAVL 1 - 1 50 

NOTON 1-156 

NOT XT 1-144 

NOUDC 1-1 4B 

NSWPMS 1-152 

NTRMTP 46-15 46-4441 

NUCHN 1-83 87-3''! 

NUMDEV 1-117 62-57 

NUMON 1-58 

OCTFIX 1-144 32--9# 

OCTPRT 1-164 31-7^i 

OF**SZ 1-119 70-,' '7 71 26 

OF^DEV 1-1 IS 70-23 71-3H5^ 72-1 5-k- 

OF$FIL 1-118 71-24 71-34-t^ 71-35^tt 71 36-*; 72-17* 

OF^FLG 1-118 71-37-i; 71-4lr. 

OF'iSUNT r-tiS 70~-Pr! 71-32<^^ 72-16-K' 

OFFEMT 1-158 

DKFEND 1-70 70-20 71-22 

OKFILE 1-70 70-22 71-21 

OPTLST 1-47 i0~A0# 

OT*RON 1-1 19 71-''!J 

OTHRON 1-160 

OTRMNT 1-162 

OVRCOR 1-134 

PO**NP 1-3S 14-41 14-43 
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PO*ALC 


1-42 


3-13 


3-14 




PO$BYP 


1-37 


3-15 


3-16 




PO*DBG 


1 -39 


3- .1 / 


3-13 




PO*DET 


1 -40 


3-19 


3-20 


16-26 


PO*LOK 


1-40 


3-23 


3-24 


3-35 


PO*MEM 


1-40 


3-25 


3-26 




PO*NAM 


1-41 


3-43 


3-44 




PO*NFR 


1-37 


3-r'9 


3-30 




PO*NFW 


1 -37 


3-;.i.i 


3-32 




PO*OPR 


1 -40 


3-33 


3-34 


87-5 


PO*RT 


1-40 


3-37 


3-38 




PO*SND 


1-41 


3-4 1 


3-42 




PO^SPF 


1-37 


3-47 


3-48 




PO*SPV 


1-39 


1 -4 .i 


3-45 


3-46 


PO*SYS 


1-41 


3-;}l 


3-52 


87-14 


P2**NP 


1-38 


14-42 


14-44 




P2*CGR 


1 -4 1 


3-49 


3-50 




P2*CXT 


1-36 


3-;'l 


3-22 




P2$GRP 


1-39 


3-57 


3-58 


16-46 


P2*MSG 


1 -'40 


3-;'7 


3-28 




P2*RLK 


1-41 


3-39 


3-40 




P2*SAH 


1-39 


3-59 


3-60 


16-53 


P2*TRM 


1 -38 


3-53 


3-54 


87-23 


P2*UP1 


1-36 


3-65 


3-66 




P2*UP2 


1-36 


3-67 


3-68 




P2*UP3 


1-36 


3-69 


3-70 




P2*UP4 


1-36 


3-71 


3-72 
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